


Institutional Archive of the Naval Postgraduate School 





Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1984 


An investigation into the use of data bases in 
computer-aided naval ship design 


CeLotto, Richard Charles 


Massachusetts Institute of Technology 


http://ndl.handle.net/10945/19404 


Downloaded from NPS Archive: Calhoun 


Calhoun is the Naval Postgraduate School's public access digital repository for 


/ (8 D U DLEY research materials and institutional publications created by the NPS community. 
«ist : Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS's first 


NY KNOX appointed — and published — scholarly author. 


LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 





http://www.nps.edu/library 





DUDLEY KNOX LiBREAT 
NAVAL POSTGRADUAT- meee | 


MONTERCY, Gy 











a 





UNCLAS 


SECURITY CLASSIFICATION OF THIS PAGE (When Data Entered) 


REPORT DOCUMENTATION PAGE 


2. GOVT ACCESSION NO. 








READ INSTRUCTIONS 
BEFORE COMPLETING FORM 


3. RECIPIENT'S CATALOG NUMBER 
















TITLE (and Subtitte) 


AN INVESTIGATION INTO THE USE OF DATA BASES IN 
COMPUTER-AIDED NAVAL SHIP DESIGN (VOL I&II) 


S$. TYPE OF REPORT @ PERIOO COVERED 


THESIS 







4. 






6. PERFORMING ORG. REPORT NUMBER 














= . CONTRACT OR GRANT NUMBER(e@) 





AU THOR(e) 


CELOTTO, RICHARD C. 
















- PROGRAM ELEMENT, PROJECT, TaSK 
AREA &@ WORK UNIT NUMBERS 


12, REPORT DATE 
JUN 

13. NUMBER OF PAGES 
26 


18. SECURITY CLASS. (ol thie report) 


9. PERFORMING ORGANIZATION NAME AND AOORESS 
MASS. INST. OF TECHNOLOGY 
CAMBRIDGE, MA 02139 


















11. CONTROLLING OFFICE NAME ANO ADORESS 
CODE 031 
NAVAL POSTGRADUATE SCHOOL 
MONTEREY, CA 93940 


MONITORING AGENCY NAME & ADDRESSE(If different trom Centreliiing Ollice) 













81 
6 
UNCLAS 


Se. OECL ASSIFICATION/ COWNGRADING 
SCHEDULE 






16. DISTRIBUTION STATEMENT (of thie Report) 


APPROVED FOR PUBLIC RELEASE; DISTRIBUTION UNLIMITED 


17. DISTRIBUTION STATEMENT (of the abetraect entered in Block 20, tf different from Report) 


18. SUPPLEMENTARY NOTES 


19. KEY WORDS (Continue on reveree side if necessary and identify by bieck number) 


NAVAL SHIP DESIGN 
COMPUTER-AIDED SHIP DESIGN 


20. ABSTRACT (Continue en reveree cide If necessary and identify by tleck aumber) 


ATTACHED 





OD . an 73 1473 — EdI TION OF 1 Nov 6818 OBSOLETE UNCLAS 
= 2 
ee oe BECURITY CLASSIFICATION OF THIS PAGE (Wren Dete Entered) 





UNCLAS 


ee a 
Fecumty CLASSIFICS TION OF THIS PAGElWNEN Nore Batoree. 


ABSTRACT 


A design-oriented, interactive computer system which 
makes possible the dynamic loading of programs at the 
user's request throughout the operating session has been 
developed. This system, which is referred to as DEX, also 
allows the user to select various types of files as the 
sOurce and destination of information during the session. 
With respect to one type of file, databases, DEX introduces 
a more versatile form of organization and uSe. 


An extended DEX library of subroutines is developed 
which enables the user to read and write integer scalar, 
real scalar and one-dimensional real array variables and 
to edit from the terminal integer and real scalar values. 
It also enables the user to employ during input and out- 
put sequences the unit system of his choice. 


A proposal is offered for the organization of DEX 
databases for the preliminary design of naval ships. 
Suggestions are made, based On a demonstration computer 
program, for employing existing ship databases to support 
a generalized ship synthesis model. 


DD Forma 1473 UNCLAS 
samara aaa ae 
S/N Uib2: 14-6601 SECURITY CLASSIFICATION QP THIS PLGEC@HREN Dore Bniored) 





Appr.uvad r public release; 
distribution unlimited. 


AN INVESTIGATION 
INTO IHE USE OF DATA BASES 
IN COMPUTER-AIDED NAVAL SHIP DESIGN 
by 
RICHARD CHARLES CELOTTO 
Lieutenant, United States Navy 
B.S., Webb Institute of Naval Architecture 
and Marine Engineering 
(1973) 
Swe TTEDetewrtns DEPARTMENT OF 
OCEAN ENGINEERING 
Neca lA PUBELTEEMENT OF THE 
RECUR EMoNto Of @lHE DEGREES OF 
OCEAN ENGINEER 


and 


Meol@r OF SCIENCE IN 
NAVAL ARCHITECTURE AND MARINE ENGIEDRING 


at the 
MeeonehUopilao INSTITUTE OF TECHNOLOGY 
sree weg S 1 
©) Richard Charles Celotto 1981 


The author hereby grants to M.I.T. permission to reproduce and 
to distribute copies of this thesis document in whole or in part. 








AN INVESTIGATION 
INTO THE USE OF DATA BASES 
IN COMPUTER-AIDED NAVAL SHIP DESIGN 
by 
RICHARD CHARLES CELOTTO 


Submitted to the Department of Ocean Engineering 
Cima meoreosie in partial fulfiliment of 
the requirements for the degrees of 
Master of Science in 
Naval Architecture and Marine Engineering 
and 
Ocean Engineer 


ABSTRACT 


A design-oriented, interactive computer system which 
makes possible the dynamic loading of programs at the 
user's request throughout the operating session has been 
developed. This system, which is referred to as DEX, also 
allows the user to select various types of files as the 
source and destination of information during the session. 
With respect to one type of file, databases, DEX introduces 
a more versatile form of organization and uSe. 


An extended DEX library of subroutines is developed 
which enables the user to read and write integer scalar, 
real scalar and one-dimensional real array variables and 
to edit from the terminal integer and real scalar values. 
It also enables the user to employ during input and out- 
put sequences the unit system of his choice. 


A proposal is offered for the organization of DEX 
databases for the preliminary design of naval ships. 
Suggestions are made, based on a demonstration computer 
program, for employing existing ship databases to support 
a generalized ship synthesis model. 


Thesis Supervisor: Chryssostomos Chryssostomidis 
Title: Associate Professor of Ocean Engineering 





ACKNOWLEDGEMENTS 


The author wishes to express his appreciation to 
Professor Chryssostomos Chryssostomidis for his guidance, 
advice and unfailing encouragement which made this thesis 
possible. The author is especially grateful for the gen- 
erous sharing of his time throughout the undertaking. 

The author would also like to thank his lovely fiancée, 


Kathy, for her patience and perspective. 





Peobiween «CONTENTS 


Page 

AEST 9 rr 
ACKNOWLEDGEMENTS : ; : : ; : : ; , : : : 3 
TABLE OF CONTENTS 4 
Eos Or FIGURES 8 
Biot Or TABGES 9 
GaAPTEn (eee Pee ObDUCTION TO DEX. : : F ; : : . 10 
Pee Sackgaound 4 Sg ae i | 6. 

ieee Pesce. locton, Of DEX. J ee ee ee 4 
Por eeeory  . ee eos es) ht IZ 

eZee Organization : eee as: oes 

1.3 The Extended DEX Library. a ne er, rrr 4° 
ICePIEMEICdiGemmMelt. . » « «  «  »« « « £0 

Iho Sa 2 IRGC ie) 5 a 4 © 

ho 5B eC COs) 5 rr 2? 

Lo Seth We Ses rr 2 

ae | UnLts 5c gl Sige nn 

I mOaeibases  .  . . «6 « « « « « . 3 
ioe Peatiosophy. .  . A. ee OW 

i-4-2 «6Sermat of Database an erie, Se ste eenow 

CHAPTER 2 THE CUBE MODULE SAMPLE PROGRAM . : ‘ % 20 
2.1 General Description . . a ae ee ee 
2.1.1 Function of the Module. . . . . 33 

yop (ectle SubprogramS . . . . . +. 3 
Welwemoeeadibe Operation. .  . . . . ». 4 

2.2 Frequently Used Subroutines. . . . . . 42 
PePOMEREC@RODATA 2 2  . «§ «= «© « -« « 42 

Z.2.2 MAINPG . : : : : : : : : ~ 45 

ees ODEO... Meee ee eg 

2.2.4 MXUNIT and the “All” Megue. j« % «A. 4 

PPPTCM DOUG EE IOS i. . «+ « «+ « «6 «© JI 

Dog he dh TENE CI Se 

Poe ee DUMENS § . a ee 

Pee inie OuEput Series subprograms ce DO 
econ eroMmeresgeanmang Comments . . . . . 96 

a ween lH EALTENDED DEX LIBRARY ENVIRONMENT 

SEN GMROUTINES: | <9 2 . « » « +. 





Popes VOnCONLENTS (cont'd) 


LJ 
te 


Dien 4 Wied On 
Sez SubroOucine DIALOG 
3.2.1 Menu and Calling Parameter 
3.3 Subroutine SOURCE 
3.3.1 Menu and Calling Seek anes 
Bo ecemOeematlion Of SOURCE 
3.4,  Subrourimes DESTIN ‘ 
3.4.1 Menu and Calling Sequence 
3.4.2 Operation of DESTIN 
Subroutine MDMODE : 
3.6 Subroutine CHKRNG 


WW 
U1 


CHAPTER 4 THE EXTENDED DEX LIBRARY READING 
ROUTINES 


eneral Description. 

ee IC 2 On 
Oregmazation. 

er Scalar Series 


2 
nteg 
i ischpe 
2 
3 


e 
IES Clee 
ISREAD 

1 Scalar Series 

PWeba2.et Description 
2 ESeEDR 
3 RVAPMP 
4 RSREAD 

eal Array Series 

1 Brief Description 

2 RALLDR. 

3 


G 
4. 
4. 
I 
Ble 
4. 
ao 
4.3 Re 
ae 
ae 
ay 
a 
R 
a 
4. 
ay, RALRED. 


ie 
fe 
Ze 
2. 
2. 
a 
be 
oe 
ce 
ee 
a 
4. 
4. 
4. 


CHAPTER 5 THE EXTENDED DEX LIBRARY EDITING 
ROUTINES 


General Description : 

Regrcalenuncerton LSCEDT 

5.2.1 Calling Sequence 

See | Operation. 

Soe Lec Cale Punct1 on RSCEDT 
5.3.1 Calling Parameters. 

Bao me Ole Lation.. as 


U1 U1 
NO Fe 


©O1 








TAREE OF PCONTENTS (cont'd) 


CHAPTER 6 THE EXTENDED DEX LIBRARY WRITING 


OV OV 
NO 


CHAPTER 7 


(egole 
osaZ 


ROUTINES. 


General Description. 
Integer Scalar Series 
6222 ee ESCDMP . 

JES DESIG: g 

eo LE, : 

1 Scalar Series. . 

Tio DMP . 

Wee VDSCR . 

Oe ROR IE. 

1 Array Series 4 
.l RARDMP. : é : 

2 RARE « ; 


OV 
NO 
W N 


e 


e 


NON 8) OTE EN 2) OX 
BAD W WORD 


THE EXTENDED DEX LIBRARY UNIT ROUTINES. 


GeneraimBesGcriotlenm. . 9 . «.« « «© « «+ 

MNCmibAOMUMhtyoODeCILICrS -. ~~ «». j§«« «© -« 

7.2.1 General Description ; ae Ss 

i222, cmmeneraGcseristves of a Typical 
Subroutine 

The Basic Unit Series 

7.3.1 General Description 

7.3.2 Calling Parameters. 

poo Ene CuULLON. 


Derived I/O Unit Series 

Poole socerczes Description. 

fae OP RESS Calling Parameters 
fees PUERESoS Operation .. : 


feo DE VEROPMENT OF A CRUISER-DESTROYER 


DATABANK AT M.1I.T. 


Considerations in Database Design 

Seve. SPanceLlon 

Beez rypes Of Databases. : 

Seganrezat1on Of the MIT Cruiser=- Desi wee 
Databases 

Sea ee Genera 1 Databases 

8.2.2 Mass Properties Databases 
Independent and Dependent Variables 

Sole CONCEDT : oe: 


Page 


OS 
ale 


eZ 
3 
Jee 


Lyi 
7 
ete: 
Jd 
I210 
ayaa Es 
121 
Is 
124 


IL} 


Nay 
Zo 
26 


neal 
es a 
IE BN, 
142 
142 





CHAPTER 9 


REESE RENCE S 


APPENDIX 


APPENDIX 


APPENDIX 


PEPENDIX 


APPENDIX 


APPENDIX 


A 


B 


CO. Conconce OO 


p 
4. 
, 4 
+ 
+ 
~ 


PD ePeOrscOoNTENTS= (cont *d) 


PrGatton of DEX: An Example. 


at 
1 Function of MACHWT. ee 

2 List of Subprograms and Menus 

3 Description of the Subprograms. 
4 Results from the MACHWT Module. 
5 Future Developments 


CONCLUSIONS AND RECOMMENDATIONS 


CUBE MODULE LISTING 


UNIT SUBROUTINES ABBREVIATIONS AND 
Grae nG “>EOUENCES 


SAMPLE GENERAL DATABASE LISTING 
GENERAL DATABASE ENTRY CODES 


SAMPLE WEIGHT AND VERTICAL CENTER 
OF GRAVITY DATABASE LISTINGS 


MACHWT MODULE LISTING. 


Page 


- 145 
- 146 
. 148 
ee ee 5) 
- 154 
5 ES)? 
ow 


er 


ee ciOne 
e740 


20 


lis 


eZ 2 6 





See ele 
WN 


NR PNM BDH NH 
iI m W DN kK 


ly W W 
i 4 


WN 


oO 00 
( 
NR 


GEST OF Tk SGURES 


Menu "LEN.UNIT" : 
Two Consecutive Operation Pemee 
DEX Menus . : ‘ : : 


Cube Module Menus . : 
Cube Module Subprograms Access Routes. 
Sample Cube Module Input Session . 
Sample Cube Module Output. 

Comparison of Module Input/Output Flow 


Menu “MOD.ALTR"” 
Menu "SOURCE". : : : , : 
Menu "DESTINAT" . ¢ : e 2 


General Database Variable Relationships 
MACHWT Module Menus. 





00 OO 
Le <a 
W N 


WOWWwWWw Www 


NU & W NM FF 


ae ee 
WN FF 


iol Or TABLES 


Page 

iy Omtmieespecifier Subroutines, Menu 
Names and Units Available... es - ost led 
i7O Untemopecifier Calling Parameters ae L1G 
BaSic Unit Calling Parameters . ys : : eG 
Derived I/O Unit Series. ee. eer | cee a DD 
SeeCiaewOUmMde Names. . « . « «6 « « + «l26 

General Ship Characteristics Database 
Variables. ‘ ‘ rs. “CUBE: © <<, 5 lo 
Prniemtts Or MACHWT | ee slg Me ly ey 
SomememMaAChWrE Results. . . «2. .s. . «. . .154 
PrigubesUNtTt Abbrevlations. -. m9. - +». .»- .202 
FMeGecee@nitemnpomeVIidtiOns. .. . . «».« .« « .202 
ememen Unwe Abbreviations . . «. »« « «»« 202 
Temperature Unit Abbreviations. . . . . .203 
Time Unit Abbreviations . See & 


Calling Sequences of Derived Unit “Subroutines. 204 


Payload Shopping List ‘ Se ate - ie ae 
Supplemental Payload Shopping List ee wr 7, 
Index to Non-Payload Reed Code. . . . . .218 





GqAG TE Rw 


i PRODUCTEON TO "DEX 


ee Background 
Significant improvements in the capability and 
efficiency of computer-aided design systems have been 
achieved in the past decade by the introduction of 
interactive computer programs. This development was a 
major advance in providing more flexibility to the user 
at the input end of the process. However, too many of 
the innumerable design programs, and the design systems 
that incorporate collections of them, suffer from several 
bothersome problems: 
(1) Less, but still excessive, restrictions 
on the flexibility of the programs to 
respond to the individual user's needs. 
(22) Sineompatability “of input and output 
amongst programs and especially between 


programs and databases. 


(iii) Excessive training time required for users 
to learn how to use the programs. 


(iv) Inability to be transported to different 
faci lngtaess 
In 1974, researchers at the Massachusetts Institute 
Simleennology ana the University of Michigan felt that an 
investment in the "front end" of computer-aided design 


systems could eliminate or reduce these characterstics 
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and result in design tools of greatly enhanced capability 
[1], [2], [3]. One of their goals was to develop a sys- 
tem that provides the designer almost as much flexibility 
at the computer terminal as he/she* has when sitting at a 
desk with pencil, paper, calculator and imagination at 
their disposal. The system would be easy to use because 
of a consistent approach to the interface between the 
user and the programs. Further, it would incorporate a 
more intelligent approach to the use of databases. They 
HeWecmemts, CONGeDG PHM j tor Design Executive System. 

DEX is a self-contained software package that can 
be adapted to almost any computer system that supports 
Fortran. It provides an environment for running task- 
Oriented programs, called "modules". It supports pri- 
marily, but not exclusively, interactive programs where 
there is communication between essentially five "parties": 
the user, the computer, the computation program, the 
Seuree Of Input and the destination of output. 

The purpose of the work reported in this thesis was 
to continue the development of the system at the inter- 
mediate level in the DEX hierarchy between what is refer- 


bee to as “(the) DEX" and the "module". This intermediate 


“the oem enGheonagnouecnthis thesis Of the proper pro- 
noun "he" and its derivatives when referring to the pro- 
grammer, user or designer is for the smoothness of the 
text and is not to imply any presumption of those persons's 
Sex. 
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category of subprograms is called the "extended DEX 
library". (The collection of all the design program 
modules is called the "DEX library".) The function of 
the extended DEX library is to enable the user to accom- 
plish the following: 
(1) Establish an environment in which the type 
of dialogue and the source and destination 


Srelnrornactilon is defined. 


(11) Specify the system of units to be used for 
input and output. 


(111i) Read information. 
tho eeEaitc P2ntormation. 


J wenwrtte information. 


This investigator's motivation was to advance the 
development of an extremely capable tool for the field 
of ship design, but it should be stressed that DEX can 
be employed by any discipline involving computer-aided 


design. 


Ae Description of DEX 

1.2.1 Theory. Reference [3] provides an original 
and excellent description of DEX, but this writer felt 
that some discussion should be presented here to assist 
the reader in relating to the information offered in 


this thesis. 


We 





There are five characteristics of DEX which reflect 
the design philosophy of the system: 
(1) The user is in the design loop. 


(11) The system allows the design process to be 
executed in more than one sequence. 


(111) The system talks with the user in plain 
English. 


(iv) The system is forgiving. 


(v) The system has multiple capabilities for 
input and output. 


1.2.1.1 The user in the design loop. Design 
processess are typically iterative ones. This is especially 
true in the ship design process as vividly illustrated by 
the ship design spiral. Computer programs allow many and/ 
or complicated calculations to be performed quickly. The 
faster that the results can be analyzed and a new set of 
Calculations indgskiated, the better. Even more advantag- 
eous is the ability to do only part of the calculations and 
analyze those results to decide whether or not to proceed. 
DEX extends the degree of spontaneity characteristic of 
interactive programs by enabling the dynamic starting of 
modules of the user's choice, by providing more options 
for sources of information immediately available to the 
user and by allowing theuser to edit and insert information 
before it is used in calculations or written to its final 


destination. 
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eee Lex TOL ity ine ancreased tlexi- 
bility offered by DEX manifests itself in two ways. The 
first, implemented to allow any computer program accept- 
able to the operating system to be operated in a system 
incorporating DEX, is that the degree of involvement with 
DEX is completely within the prerogative of the module 
author. The term "module author" was introduced in 
reference [3] and will be adopted here for consistency. 
It applies to the person who writes the particular appli- 
cation program and who chooses which DEX services to use. 
As a minimum, the module author can arrange for the user 
to issue only the following commands to execute the 


DOG sam: ~ 


start main (this activates DEX) 


. begin module2 (this starts the user's program) 


There would not really be any point to such an exercise 
but it can be done by fulfilling only two requirements. 
First, the name of the file containing the module name 


(e.g., module2 above) must be introduced in the DEX's 


“the Soo Lele ewlilimie usedq=to indicate user- 
typed commands, "S$" will indicate DEX messages and "*" 
will indicate module messages. These symbols are auto- 
matically inserted by DEX. 
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library file. Secondly, the main program of the module 
must be a subroutine appearing first ina listing of the 
module. | 

The second aspect of the DEX's flexibility is the 
use of "menus" to provide the user with a wide choice of 
paths to follow to accomplish his goal. A menu is a list 
of options (a maximum of twelve per menu is possible) 
from which the user chooses to either define a value or 
proceed onto the next step of the operation. Some 
examples should prove helpful. 

Figure 1-1 depicts a typical units menu which 
illustrates the first type of menu. The user would type 
in sufficient characters to identify the length unit to 
Sw Comeor Inoice OF Output, e.g., “foot”™ (or just "E£"). 
The subprogram which includes this menu would accept 
PHeoOmeh@ruce, t= proper, and return control to the sub- 
program which called it. 

Menus are normally not displayed. The user will 
likely be aware of the menu options and is simply 
prompted to make a choice. For this example, one would 


See. 
*ENTER AN ITEM FROM MENU - LEN.UNIT 


However, if the menu choices are unknown, the user can 


type 


iS 
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Figure 1l-l. Menu "LEN.UNIT" 
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Two Consecutive Operational Menus 


Figure 1-2. 
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.Sdisplay menu len.unit 


to have the menu displayed by the DEX. Note that in 
this case the user himself types "S$". The word "dis- 
play" is a selection from menu "DEX.MAIN". After re- 


viewing the menu, by typing 


ZcOnemnue 


he is returned to the prompting message for the length 
unit menu. 

The second type of menu option directs the program 
to proced to the next operation. Figure 1-2 shows two 
successive “operational" menus from a theoretical program 
that estimates horsepower from the Taylor Standard 
Series. The user would select item "input" from menu 
"MOD.IO" in order to pass onto the subprogram containing 
the menu "INPUT". Any of the items from that menu would 
pass him onto another subprogram. 

There is a subtle difference between the menus of 
Figure 1-1 and 1-2. Observe that the second shows the 
item "done" in both menus which is absent from the first. 
A subprogram with a menu containing "done" returns con- 
trol to the subprogram which called it only when that 


entry is selected, whereas for the other, without a 


oe 





"done", control returns automatically once a selection is 
made. The latter is used in menus where only one choice 
would be made at any time. 

The user is free to choose any item from a menu 
that is meaningful to him. There is, therefore, no one 
predetermined path that must be followed when executing 
a group of menus. Logic, however, may dictate that one 
specifies units before reading in water properties. 

1.2.1.3 Plain English. The messages and 
queries to the user provided by DEX have been designed 
to be as clear as possible. The instructions or re- 
sponses that the user must supply are natural and logical 
words that would be used in an oral dialogue. An impor- 
tant asvect of these practices is the uniformity of 
dialogue encountered by the user under DEX. This reduces 
the effort required to learn how to operate a new 
program, which is not an insignificant advantage. 

1.2.1.4 Forgiving. By extending the 
capabilities of the conventional design programs with 
DEX, the user can accomplish more during a session, but 
this entails more thinking on his part. The probability 
that errors will occur is therefore higher. 

Even the most experienced user makes mistakes. [It 
may be as simple as depressing the wrong key when typing 


a menu selection or as improper as supplying an integer 
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when the program wants a real number. When developing 

the DEX and extended DEX library routines, and the 

Machinery Weight Estimating Module of éietar 8, as 

many potential errors as possible were anticipated and 

diagnostic messages, in plain English, were provided. 

In some cases they advise the user of the error and allow 

him to try again at that same point. In others, especially 

where a problem is caused by a programming error, control 

1s returned to the user several sequential subroutines 

orior to where the error occured, with a message issued 

to assist in determining where to search for the mistake. 
1.2.1.5 Input/Outout Cavability. DEX enables 

the communication of information by the dynamic allocation 

of databases and files, which are the only two storage 

locations it recognizes. In practice we distinguish 

between two types of files, such that the list of loca- 


nloms 1S as ELOoLLows: 


(1) databases 
(ii) input locations (which are the terminal 
for alphanumeric characters and a graphics 
Sereen for x-y coordinates) and output loca- 
tions (the terminal screen in the form of 
menus) 


Geli eradisk files. 


Now, for the ease of understanding of the user, 


the environment in which he operates is described as 


IL, 





HeavinGgead tOeal Ob five “sousees" OfVinformation and four 
"destinations". The term "information" is preferred here 
femermput sand “Output” to preclude a limiting misconcep- 
tion by the reader. The tendency to think of input as 
data read and output as answers written should be avoided. 
In fact, the user may need to "write" input to the term- 
inal for inspection, or "read" an output value from the 
Zeomniniemin Order tO “write” it to a database. For this 
reason this writer will often apply the term "information" 
to both input and output variables as values that have a 
source or destination. 

The sources and destinations provided for in the 
operating environment of the DEX system described in this 


thesis are listed here: 


(i) DEX-created databases 


(ii) the terminal using DEX routines to read or 
write alphanumeric characters 


(iii) the terminal or a plotter using graphics 
routines to read or create x-y plots 


(iv) sequential files 


(v) module default data (source only) 


The third capability does not yet exist in the 
present version of DEX at MIT because all the necessary 
enabling routines have not yet been implemented. If the 
user tries to employ it, error messages advise him of 


eames Situation. 
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The user is not confined to using the same type 
Sremoecstinatiogmas Source, OF the same source for all the 
information of a program. He may read information from 
one or more databases, for example, and write it to 
another, or to the terminal or to a file, or all three 
in succession. The only restriction is that the module 
can be pointed toward only one source or destination at 
one time. 

1.2.2 Organization. The hierarchy of DEX consists 
of three levels of programs: the DEX, the extended DEX 
library and the module. The first two categories com- 
prise a permanent, portable set of subprograms which 
orovides an interface between the comvuter and the user- 
supplied module. 

ee er ee iniemea cegony Called ™DEX, con- 
Sists of several hundred subroutines, each with a very 
specific function, which provide the foundation, or 
"umbrella" if you will, for the DEX System. The employ- 
ment of these subroutines by the module authors results 
in a uniform appearance of the system to the user of the 
various modules exercised. The DEX services provide in- 
put/foutput and data utilities and, eventually at MIT, 
graphics utilities for the module authors. Although the 
module author and user need not be aware of most of these 
subprograms, in two areas they draw directly on the 


features of routines in this category. 
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The first area, of interest to the module author, 
is a set of 37 subroutines and functions which the pro- 
grammer may incorporate into his module to perform cer- 
tain tasks. References [4] and [5] describe these sub- 
PRogGamswaliad HOWNEMey are used. Briefly, they are grouped 
into five categories: control of execution, input, output, 
database management and character manipulation. Subsequent 
chapters will refer to these as "DEX routines". 

The second area of overt involvement with the DEX 
category 1s encountered by the user during operation of 


a module. When the command 


worart maLn 


is issued, the user enters the DEX environment and is 
presented with a prompting message for menu "DEX.MAIN". 
There are six menus at this level of DEX, and these are 


fisted im Figure 1-3. The first instruction given to 


Ehe user iS: 
SENTER AN ITEM FROM MENU - DEX.MAIN 


These items are listed in the rightmost column in the 
table. Note menu "DEX.DISP" which allows the user to 


display any menu by typing 


.display menu menuname 
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The user's module is activated when he tvpes, 


from menu "DEX.MAIN", 
.begin modulename 


He then enters the environment of the module, but he 

can return to the DEX level by using the symbol "S$" and 
then an item from "DEX.MAIN". Similarly, he can transfer 
temporarily from the DEX level to the local computer 
operating system level by the option "system". To get 


back into DEX he uses the command 
pEetcurn 


and then to get back to the module he uses the menu 
@pittOn  ~—COntinue’. 
When a module execution is complete, the user 


returns to the DEX level and issues the command 
Benet 


to return permanently to the operating system. 

1.2.2.2 Extended DEX Library. The extended 
DEX library is not a level of operation like DEX on the 
module, but rather a collection of 45 subroutines and 
functions which the module author can adopt in con- 
structing his module. The bulk of this investigator's 
work involved the development of this library, and it 


will be discussed further in Section 1.3 and Chapters 3-7/7. 
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1.2.2.3 Module. A module is a complete set 
of subprograms written by the module author and executed 
by the user to perform a specific task. A module may 
consist of only one program which does the actual calcu- 
lations, or it may have many additional subprograms 
employing menus to take advantage of the flexibility 
offered by DEX and the extended DEX library. Chapter 2 
describes in detail an actual module used during the 
testing of the extended DEX library subprograms, and 
Chapter 8 describes the Machinery Weight Estimating 
Module written to demonstrate the use of the cruiser- 


destroyer databases. 


3 whe Extended DEX Library 
In order to convey information from a storage 
location to the program doing the calculations and from 
there to another storage location or display, five 
capabilities are required by the user. These five, 
listed here, are provided by the extended DEX library: 
(i) Setting and reviewing the module environ- 
ment for type of dialogue and sources and 
destinations of information. 
(ii) Reading information. 
Cems ealLeinog information. 
Cee we hetng 1Ntonnatron. 
(v) Converting the user-preferred input/output 
units to the module author-preferred units 
and back again. 
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The five categories will be briefly outlined here and 


described in detail in Chapters 3-7. 


oe 


Environment. Four subroutines provide or 


display the module environment defined by the user. 


They are: 


DIALOG: 


SOURCE: 


BES Len: 


MDMODE: 


es. 2 
user to read 


They are: 


ISCLDR: 


PServer : 


ISREAD : 


RSOCODR: 


RVAPMP : 


enables user to specify terse or verbose 
dialogue 


enables user to specify source of infor- 
mation, either a DEX-created database, 
the terminal, a sequential file or the 
module's default data. 


enables user to specify the destination 
of information, either a DEX-created 
database, the terminal or a sequential 
file 


displays the status of the module environ- 
ment, including type of dialogue, reading 
source, writing destination, and reference 
numbers for files to be read from or written 
ele 


Readers. Eight logical functions allow the 


information from the designated source. 


invokes ISCPMP and ISREAD 


prepares a prompting message for reading 
an integer from the terminal 


reads an integer value from the source. 
invokes RVAPMP and RSREAD 
orepares a prompting message for reading 


a real scalar or a real array from the 
terminal. 
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RS READ: 
RALLDR: 


RALRED: 


J aMgS Se 


reads a real scalar value from the source 
invokes RVAPMP and RALRED 


reads a single one-dimensional array from 
the source. 


Editors. The editing routines are still 


undergoing development. Eventually they will enable the 


user to perform various editing functions on the working 


variables of the module. Two preliminary routines were 


completed during this investigation: 


PSGEDT: 


Sos 1a) BUR 


se ee 


enables the user to change the value of 
an integer scalar variable from the 
terminal. 


enables the user to change the value of a 
real scalar variable from the terminal. 


Wimtters- a flghe Logical functions allow the 


user to write information to the designated destination 


They are: 


ToOCDME: 


JUS DNS Gite 


Portree: 


RoepMe: 


RV DSCR: 


calls ISDSCR and ISRITE 


prepares a description message for 
writing an integer to the terminal 


writes an integer scaler to the desti- 
nation 


Ga ts RVPSeR ana RoRLTE 
prepares a description message for writing 


a real scalar or a one-dimensional real 
array to the terminal 
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RARDMP: calls RVDSCR and RARITE 
RARITE: writes one-dimensional real arrays to the 
destination 

1.3.5 Units. The units subprograms are divided 
into three categories. The first category contains five 
Subroutines which read, edit or write the input/output 
units that the user wishes to employ. There is one for 
each of the five basic types of units adopted by the 
system: plane angle, force, length, temperature and 


EIimewee Laie names of these subroutines are: 


AUNIT 
PONTE 
CaN iT 
EON iE 


TUNIT 


The second category contains five logical functions, 
one for each of the five basic unit types, which deter- 
Menmemtnemeonversion factors for converting to i/o units 
to the program standard units and vice versa. Additionally, 
they prepare unit names and abbreviations of unit names 
which are used in database comments and prompting and 


description messages. The names of these functions are: 
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UNITAF 
UNaracer 
OND IEE 
UNITMP 


iN 


The last category contains twelve logical functions 
which perform the same function as those in the second 
category, but for derived units formed by combining 


basic units. They are: 


WAAGCC : 
UACCEL: 
UAREA: 
OEREQ: 
Davis: 


UMASS: 


UMPOWER: 


DEPRESS : 


GESPEC : 


URLO: 


UsSsPeEeD: 


UVOL : 


angular acceleration 
linear acceleration 
area 

frequency 

kinematic viscosity 
mass 

mechanical power 
pressure 

Pewer Spectrum 
density 

speed 


volume 
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1.4 Dex Databases 

1.4.1 Philosophy. The DEX philosophy includes as 
a fundamental feature a new and more capable approach 
to database manipulation. This revolves around the 
concept of identifying a variable within a database by 
Zaomianeomanaenotumsyerts location. For example, if a user 
needs the value of an entry in the database signifying 
the ship's draft, he retrieves that value at the address 
"DRAFT', or whatever name it has been assigned by the 
database creator, and not by specifying that the value is 
the fourth or twentieth entry in the database. 

In order to use the capabilities of DEX a database 
must be constructed via either the commands of menu 
"DBEDCMDS" or the database management routines in 
Poeeoseneomi4).s these E€ntail a specific format for the 
entry of the variable, but there is no sequential order 
required for arranging the different variables in the 
database. 

1.4.2 Format of Database Entries. In the present 
version of DEX a database can contain up to 200 variables. 
Three types of variables are allowed: integer scalars, 
real scalar, and one-dimensional real arrays. A real 
array can contain up to 200 elements. 

A variable entry in a database consists of four 


parts. First is the database name, which is formed by 
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up to eight alphanumeric characters (including blanks), 
e.g., "LBP", “WEIGHT17", "TYPSONAR". Second is the type 
of variable - integer, real scalar or real array - and 
third 1s the value of the variable itself. The final 
part is the database comment statement, a string of 
words up to 64 characters long which describes the 
variable. If the variable is either a real scalar or 
real array and has units, the comment statement contains 
a twelve-character (including blanks) version of the units 
enclosed in parentheses. Appendix B contains edited 
listings of a warship general database which illustra- 
tes database entries. 

Accompanying each database will be a database 
dictionary which lists for each variable its database 
name, type, array size, if applicable, and official data- 
base comment, including units, if applicable. Future 
versions of DEX will separate the units from the comment 
Ssmomeustimnct £1£th part Of a variable entry. Further, 
development has started to create positional databases 
which will allow database elements to be related to each 
other, e.g., a database containing a ship's compartments 
where two compartments are adjacent. 

This chapter has attempted to give a brief intro- 


duction to the concept and organization of DEX. For the 
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reader who 1S confused at this point by the large number 
of new ideas, terms and subprograms mentioned, Chapter 2 
has been included to provide an example of a simple 
module which employs many of the concepts and subroutines 
described. It should give the reader a practical aware- 
ness of how this all ties together. This will prove 
helpful in reading the next five chapters which discuss 
the design of the extended DEX library subprograms. 
Chapter 8 discusses an application of DEX to computer- 
aided ship design. Finally, Chapter 9 offers recommenda- 


Ptonmse LOG frucure work. 
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CHAPTER 2 


THE CUBE MODULE SAMPLE PROGRAM 


a General Description 

2.1.1 Function of the Module. The Cube Module 
was developed to test the subprograms of the extended 
DEX library written during this investigation. The 
module calculated the volume and weight of a block of 
Salt water given the length, width, and height (note 
that "cube" is a slight misnomer). While that function 
itself was elementary, the combination of single, scalar 
values for length and width and an array for height (and 
also, therefore, for volume and weight) permitted the 
testing of the reading, editing and writing routines 
for real scalars and the reading and writing routines 
for real arrays. The subprogram for specifying input 
and output units employed the routines for integer 
scalars. The subroutines for determining the conversion 
factors for length, force and volume were also exercised. 
Finally, as a matter of course, the environment setting 
routines were also tested. 

Appendix A contains a listing of the module. 

2.1.2 Module Subprograms. Although no single, 
correct sequence of operating the module subprograms 


existed, there was a logical path one would follow to 
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execute the program when not attempting to test every 
available option of the module. This path is a convenient 
order in which to list the module subprograms and those 


extended DEX library subprograms involving menus: 


MAINPG (C-M) 
DIALOG (DL-M) 
SOURCE (DL-M) 
DESTIN (DL-M) 
MDMODE (DL) 
MODIO (C-M) 

INPUT (C-M) 
MXUNIT (C-M) 

LUNIT (DL-M) 
SNE TN IbAL (DL-M) 
DIMENS (C=M) 

COMPUT (C) 

OUTPUT KES) 
VANDWT (CaM) 

BLOCK DATA (©) 


The "C" indicates a Cube Module subprogram, the "DL" 
indicates an extended DEX library subprogram and the "M" 
indicates that the subprogram included a menu. Figure 
2-1 illustrates the menus encountered in this model. 

Zoe oleae Operation. A description of a 
typical execution of the Cube Module should prove help- 
ful. To assist the reader, Figure 2-2 shows the various 
access and return routes of the subprograms. Once the 
user entered the DEX level environment he activated the 
Cube Module via the "begin" option of menu "DEX.MAIN", 
Ehat 1S 


begin cube 
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MENU 
MOD .MAIN 
DIALOGUE 


INMODE 
OUTMODE 
MOD . MODE 


TERMINAL 
SCREEN OULU 
Pei: DONE 









BoE 
DEFAULT 


MENU 
DIMENSIO 


MENU 
ONUMBISAU RE 
ALL 


MENU 
RESULTS 









VOLUME 





Se OUND 


LENGTH 











SHORLTON 


LONG TON 


DYNE 


NEWTON 


KILOPOND 


STATMILE 
NAUTMILE 


MILLIMET 


CEhyriIMeE 


METER 


KILOMET 








Figure 2-1. Menus Encountered in Executing the Cube Module 
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MAINPG 


te UT OUTEOT 


DIMENS MXUNIT VANDWT 
FUNIT LUNIT 


Figure 2-2. Access routes of the various 
Subprograms encountered in executing the 
Cube Module. Return routes are back 
along the arrows. 





where "cube" was the assigned module identification name. 
This command placed him in module subroutine MAINPG 
where he encountered the message: 

*ENTER AN ITEM FROM MENU-MOD.MAIN 
The user typed "mod.mode" and was presented with the 
Status of the module environment. The initialized 
values for the dialogue, source and destination were 
verbose, terminal and terminal respectively and he 
found these satisfactory. He then typed 

.read 
which sent him to subroutine MODIO and the message 


“SELECT WHICH MODULE VARIABLE SEGMENT TO READ 
*ENTER AN ITEM FROM MENU-MOD.IO 


From this menu he selected item "input" by typing it: 
- eyehoas 
Now in subroutine INPUT he received the instruction 


Soe bee? WHEGH INPUT VARIABLE SEGMENT TO READ 
*ENTER AN ITEM FROM MENU-INPUT 


At this point, to save time, he made two sequential 
selections. From menu "INPUT" he selected "units" and 
pPiiemed@acame Menu UNIT” he chose "lenath”. He ac- 
complished this by typing 

-units length 

DEX recognized the space between the two words as 
a delimiter between two commands. It acted on the first 


baanvelwnG Subsoutine MXUNIT. It then located item 
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"length" on that subroutine's menu and called subroutine 
LUNIT which issued the command 


*ENTER LENGTH UNIT TO BE USED DURING INPUT OUTPUT 
ENTER AN ITEM FROM MENU-LEN.UNIT 


The user specified "foot". LUNIT then passed control 
back to subroutine MXUNIT which printed 


*SELECT WHICH UNIT TO READ 
*ENTER AN ITEM FROM MENU-UNIT 


Again to save time, the user typed in two sequential 
menu selections: 

. force Fpound 
[these ne mim co RUNTIT and then back to MXUNIT. This 
time from menu "UNIT he chose item "done" which returned 
him to subroutine INPUT. Figure 2-3 illustrates this 
sequence. 

At this point the user had defined the length and 
weight units he intended to use for input and output. In 
response to INPUT's request for a menu selection he typed 

.dimensio 
This invoked subroutine DIMENS and caused the following 
to be printed. 

Zootaecl RHE DESLRED DIMENSION TO READ 

ENTER AN ITEM FROM MENU-DIMENSIO 
The user intended to read in all three dimensions (he 
could have used any or all of the initialized values 


built into the module in BLOCK DATA) so he typed item 
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ENTER AN ITEM FROM MENU - MOD.MAIN 


.mod.mode 

*MODULE DIALOGUE PP EReOSE 

*MODULE INPUT SOURCE : THE TERMINAL (ALPHANUMERIC) 
*MODULE OUTPUT SOURCE : THE TERMINAL (ALPHANUMERIC) 


*REFERENCE NUMBER FORM MODULE 

*FORTRAN READ FROM A FILE : 3 

*FORTRAN WRITE TO A FILE sl 

*ENTER AN ITEM FROM MENU - MOD.MAIN 

. read 

*SELECT WHICH MODULE VARIABLE SEGMENT TO READ. 
*ENTER AN ITEM FROM MENU - MOD.IO 

.Iinput 

*SELECT WHICH INPUT VARIABLE SEGMENT TO READ. 
*ENTER AN ITEM FROM MENU - INPUT 

.units length 

*ENTER AN ITEM FROM MENU - LEN.UNIT 

. foot 

*SELECT WHICH UNIT TO READ. 

*ENTER AN ITEM FROM MENU - UNIT 

.force fpound 

*SELECT WHICH UNIT TO READ. 

*ENTER AN ITEM FROM MENU - UNIT 

.done 

*SELECT WHICH INPUT VARIABLE SEGMENT TO READ. 
*xENTER AN ITEM FROM MENU - INPUT 

.dimensio 

*SELECT THE DESIRED DIMENSION TO READ. 

*ENTER AN ITEM FROM MENU - DIMENSIO 

.al] 


*ENTER LENGTH OF CUBE (FOOT ) 
- *ENTER UP TO 1 REAL NUMBERS 
hao 
*ENTER WIDTH OF CUBE (FOOT ) 
*ENTER UP TO 1 REAL NUMBERS 
mle 
*ENTER HEIGHT OF CUBE (FOOT ) 
*ENTER UP TO 4 REAL NUMBERS 
Salis Cries Scull, 


*SELECT WHICH INPUT VARIABLE SEGMENT TO READ. 
*ENTER AN ITEM FROM MENU - INPUT 


Figure 2-3. Sample Cube Module Input Sequence 


So 








"all". The computer responded with: 


“ENTER LENGTH OF CUBE (FOOT ) 
*ENTER UP TO 1 REAL NUMBERS 


The user typed in "1.0" and the computer proceded to the 
mexe TnStruction 


ZEtekR WIDER OFr CUBE (FOOT ) 
*ENTER UP TO 1 REAL NUMBERS 


The process was repeated, except that for height the 
computer requested up to four real numbers (height was 
defined as an array having up to four elements). When 
the desired number (say four) of heights were entered 
control returned to INPUT. The user then typed in 

.done done 
to return to subroutine MODIO and from there to sub- 
routine MAINPG. 

In response to this subroutine's instruction the 
user typed 

ZeoOmPpuce 
This invoked the COMPUT subroutine to actually calculate 
the volumes and weights. Control was then returned to 
MAINPG as evidenced by the instruction 

*ENTER AN ITEM FROM MENU-MOD .MAIN 

By now comfortable with the operation of the 
module, the user decided to display his results on the 
terminal. He decided to retain "foot" and "“poundforce" 


as the units, although he could have selected any desired 
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units by accessing MXUNIT again. The volumes and weights 
returned by COMPUT were in metric units, that being the 
system in which COMPUT was written. The conversions took 
Place sat the anput/outpuc, locations. More on this later. 

Now observe closely. The user issued the following 
commands: 

-write output results all 
These were selections from menus "MOD.MAN", "MOD.I0O", 
"OUTPUT" and "RESULTS" respectively. The computer 
printed on the terminal the four volumes and four weights. 
Eeiciise 2-4 1S a Copy Of that printing. 

Satisfied with his answers, the user responded to 
the current instruction from subroutine OUTPUT with 

.done done 
pomgeemeac eo MOD IMAIN= Chorce “quit” at this point 
caused him to leave the module level and return to the 
DEX level, facing menu "DEX.MAIN". The "quit" selection 
allowed him to exit DEX and reenter the operating system 
Meveltein onder to log off. 

The rest of this chapter will describe the sub- 
programs of the Cube Module to assist the reader in 


understanding how to write a module program. 
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7, 


*ENTER AN ITEM FROM MENU = MOO.MAIN 
Wr Outout results al} 
*VOLUNIE OF CUBE (FOCT x23 ) 


* INDEX VALUE 

* 1 0.999S99E-00 
oa 2 0.29000CE+01 
- 3 0.2999595+01 
* ~ 0.3999396+01 
*WEIGHT OF CUBE ( PCUND( FORCE) ) 
: INCEX VALUE 

: 1 0.638765E+02 
* 2 0.127753£+03 
: 3 0.191629£+03 
* + 0.255506E+03 


Figure 2-4. Sample Cube Results 
(as printed on terminal) 


2h as Frequently Used Subroutines 


2.2.1 Block Data. We will commence the discussion 
of the module with the subroutines which may be used with 
only slight changes in form and/or content in several 
modules. The user may wish to refer frequently to the 
listings of these subroutines in Appendix A. 

First is a special subprogram, BLOCK DATA, used 
as standard practice in Fortran to initialize all the 
labeled common blocks used throughout the module. With 


respect to input/output variables, a typical labeled 
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common block appearing in BLOCK DATA and the pertinent 
subprograms is as follows: 

COMMON /VINFO/ V(4),VOLNAM, VOLCMT,NDEVF,DEFALV (4) 
From this we can identify the following information 
which should appear in BLOCK DATA: 


(1) the variable (dimensioned for its maximum 
size 1f an array) 


(11) the variable database name 
(111) the variable database comment 
(iv) the number of default values (if it is an 
array) 


(v) the default value (or dimensioned default 
signers). /) 
These values would all be initialized in the BLOCK DATA. 
Locating the initialization and dimensioning of all 
input/output variables in one subprogram facilitates 
checking and is a highly recommended practice. 

The variables are grouped under the subroutines in 
which they first appeared. MAINPG included four common 
blocks - REFNOS, INOUTF, DIALFG and MDNCPW. All of these 
are used in several other subprograms. REFNOS included 
the variables RNRFIL and RNWFIL which represented 
respectively the file reference numbers for reading from 
a sequential file using the Fortram READ command and 


writing to a sequential file via the Fortan WRITE 
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command. INOUTF included the variables IMODE and OMODE. 
The first denoted the source of reading information (l = 
database, etc.) and the second denoted the destination 
for writing information (l = database, etc.). DIALGF 
contained the logical variable MTERSE to denote the type 
of module dialogue (terse or verbose). Finally labeled 
common MDNCDW contained the integer variable NCPW which 
was the number of characters per word assumed by the DEX 
routines. This value was site dependent. For example 

on IBM computers it was 4. For this reason it was flagged 
in BLOCK DATA as site-dependent. 

The other subroutines which represented the first 
occurrences of labeled common blocks were LUNIT, TUNIT, 
FUNIT, AUNIT, TPUNIT, DIMENS and VANDWT. Let us examine 
DIMENS. It contained nine labeled common blocks. The 
first four were mentioned above in MAINPG. LUNITS will 
be described in Chapter 7. The remaining four were 
listed under subroutine DIMENS in BLOCK DATA. LINFO, 
WINFO and HINFO contained the variable, database name, 
comment, default values and number of default values, 
where applicable, for the length, width and height 
dimensions respectively. H and DEFALH were dimensioned 
because they were arrays. The type declarations and 


dimensions of all the variables were followed by the 
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data declarations of their values. The remaining common 
block, DIMFRM, represented the formats to be used when 
reading from or writing to sequential files. One format 
was for real scalars and the other for arrays. 

2.2.2 MAINPG. Subroutine MAINPG, via menu 
"MOD.MAIN", allowed the user to select the environment 
of the module and the desired paths to follow to operate 
it. The capabilities 1t gave the user were: 

(mele see tame style of module dialogue. This 
choice invoked subroutine DIALOG. 

(2) To select the source of module input. This 
choice invoked subroutine SOURCE. Remember that "input" 
here means any information to be read, even output 
variables. 

(3) To select the destination of module output. 
fas chotce invoked subroutine DESTIN. 

(omeeeommetcscemrne module flags. This invoked sub- 
routine MDMODE which printed the status of the 
dialogue, the source, the destination, and the file 
reference numbers. 

(5) To access the module reading routines. This 
choice set the variable IOFLAG=1 and then called MODIO. 

(6) To access the module editing routines. This 


choice set IOFLAG=2 and then called MODIO. 
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(7) To access the module computing routine by cal- 
jing COMPUT to execute the calculations. 

(8) To access the module writing routines. This 
choice set IOFLAG=3 and then called MODIO. 

(9) To return control to the DEX level and menu 
PpexeMAIN'. It did this by invoking the DEX routine ENDIT. 

The menu name and the items were declared in MAINPG 
with data statements. DEX routine MENUIN was used to con- 
vert the user's selection to an integer flag ITEM for 
branching to the correct point in MAINPG. MENUIN was the 
mem@eime ehnadt actually printed the prompting instruction to 
enter a menu item. 

The user can make his subroutine MAINPG as simple 
or extensive as desired within the constraint that the 
maximum number of menu items (because of MENUIN) is twelve. 
To show how simple it aude be, consider a meee who has a 
program Called STRENGTH and for some reason he wanted to 
start it with the DEX. All he would need in his module 
besides STRENGTH is the following subroutine: 

SUBROUTINE MAINPG 

CALL STRENGTH 

RETURN 

END 
If STRENGTH used menus, DEX routine ENDIT would also have 


to be called to clear the buffer afterwards. 
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2.2.3 MODIO. Subroutine MODIO had one parameter 
in its calling sequence - IOFLAG - which indicated if the 
operation to be performed was reading, editing and writing. 
MODIO had two labeled commons - DIALGF and MDNCPW - dis- 
cussed in BLOCK DATA. DIALGF determined whether the ver- 
bose or terse menu prompting message would be issued. 

NCPW was needed for calling DEX routines STRPAK and 
mUOVE.C . 

MODIO presented the user with the menu selections 
shown in Figure 2-1. The "all" option allowed the user 
to read, edit or write all the input and output variables. 
The "all" option was implemented by a logical variable 
"ALLFLG" which was set to .TRUE if that menu item was 
chosen. This variable was subsequently passed on through 
the module. If it was returned .FALSE. to MODIO, it would 
cause the execution of the last command to be halted and 
the prompting message for menu "MOD.IO" to be issued so 
Gaat ene; user could take corrective action. 

2.2.4 MXUNIT and the "ALL" Logic. A subprogram 
Similar to MXUNIT will be needed in any module which 
allows the user to specify 1/o units different from those 
in which the computing routines were written. MXUNIT per- 
mitted the user to read, edit or write the module units he 
wished to use for input and output. For example, if the 


user selected "force" from menu "UNIT", subroutine FUNIT 
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would have been called to present the menu choices for 
force units. FUNIT and the others in that series will be 
described in Chapter 7, but some detail is required here 
because of all the calling parameters involved. 

The calling sequence for FUNIT, typical for all 
five in that series, was as follows: 


Gin Par (ULrUi, LOCALL, IOFLAG, LOMODE,MTERSE, 
NCPW,DBFUNN, DBFUNC, PMPREP,PMES, 
RNF ILE, FUNF RM, DEFFUN) 


The first parameter was an output variable, LOCALL was 
both input and output, and the rest were all input vari- 
ables provided by MXUNIT. 

UIOFUN would have been assigned a value between l 
and 7 depending on what force unit the user selected. 

LOCALL carried the information concerning the 
"ALL" option. One of the calling parameters for MXUNIT, 
CALALL, passed on the "ALL" option from iimouine INPUT. 
If it was .TRUE. then LOCALL would have immediately been 
asSigned .TRUE. also, and the prompting for menu "UNIT" 
would have been bypassed. Each of the i/o unit-defining 
routines, such as FUNIT, would have been called and the 
user asked to specify the desired choice of the particu- 
lar type of unit. Even if CALALL was .FALSE., the user 
could have selected "all" from menu "UNIT" with similar 


results. 
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If any of the i/o unit-defining subroutines was un- 
successful, LOCALL would have been returned .FALSE.. The 
program would have checked the value of CALALL. If it too 
was .FALSE., the menu "UNIT" would have been presented for 
another selection. However, if CALALL was .TRUE., it would 
have meant that there had been a change in the value of 
LOCALL (i.e., a failure in the called subprogram). MXUNIT 
would have set CALALL to .FALSE. and returned control 
through subroutine INPUT back to MODIO. This was because 
INPUT incorporated the same "ALL" logic as MXUNIT. 

Note from the listing of MXUNIT that LOCALL is ini- 
tialized as .FALSE.. If CALALL was .FALSE. and the user 
did not choose "all" from menu "UNIT", he would have been 
asked to select from the menu each time after a unit was 
specified, until he typed "done". This "ALL" logic was 
used extensively throughout the module as a means of ex- 
peditng the reading, editing or writing of many variables. 

Returning to the calling sequence for FUNIT, we 
have already mentioned IOFLAG, indicating the operation to 
be performed. PMPREP was set locally by a data declara- 
tion. It indicated to the subprograms called whether or 
not a prompting message for the unit to be selected was to 
Pemerepaneen my the program. If .TRUE., PMES would later 


be the storage location for the prompting message. If 
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PMPREP was .FALSE., PMES would already have to have the 
prompting message in it. Since PMES first appeared here 
in MXUNIT it was dimensioned here for the maximum allow- 
able size of 16 "words". This number came from the limi- 
tation on PMES to be at most 64 characters long, divided 
Mmiee 4—Character “words”. 

All the other variables were obtained by MXUNIT 
from other subprograms, including BLOCK DATA, by labeled 
common blocks. An inspection of the listing of MXUNIT re- 
veals the large number of commons required because of five 
types of units. 

INOUTF passed the indicator of the source of in- 
formation to be read (IMODE) and the destination of infor- 
mation to be written (OMODE). Depending on IOFLAG, IOMODE 
was set equal to one of these two. This told FUNIT from 
where UIOFUN was to be read or to where UIOFUN was to be 
written. 

REFNOS passed the values of the file reference num- 
bers for Fortran READ (RNRFIL) and Fortran WRITE (RNWFIL). 
Depending on IOFLAG, RNFILE was set equal to one or the 
other. These values are assigned to files during the ex- 
ecution of extended DEX library routines SOURCE and DESTIN 
by DEX routine SETDEV if the user had designated files as 
PiemSotmes Or destination. 

The other labeled commons will be described in 


Saaster 7. 
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2.3 The Input Series 

2.3.1 INPUT. Subroutine INPUT provided the user 
with a menu by which he could access subroutines MXUNIT and 
PeMENo and return control to subroutine MODIO. It con- 
tained the labeled common blocks DIALGF and MDNCPW for use 
in calling STRPAK and LMOVEC for character manipulation. 
INPUT had two variables in its calling sequence - CALALL 
and IOFLAG - as did MXUNIT described above. The logic 
for the use of CALALL and LOCALL was identical to that de- 
Pemmeecmine 2.2.4. Briefly, if LOCALL was set to .TRUE. 
when INPUT was invoked because CALALL=.TRUE., and it was 
returned by MXUNIT or DIMENS as .FALSE., CALALL would 
have been set equal to .FALSE. and control passed back to 
MeEnee, it CARAEL was .FALSE., LOCALL would have been 
puoi cic user Selected “all from menu "INPUT". 

Besides LOCALL, INPUT passed IOFLAG to MXUNIT and 
DIMENS to indicate reading, editing or writing. 

2.3.2 DIMENS. Subroutine DIMENS allowed the user 
to read, edit, or write the value of the block dimensions. 
It had two calling parameters, ALLFLG and IOFLAG. The 
former carried the "ALL" option information and behaved 
like CALALL. The "ALL" option was passed on to the called 
logical functions by the usual variable LOCALL. 

DIMENS, like MXUNIT, also contained quite a few 


labeled common blocks. Five have already been seen in 
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PeeeN tt: "BLALGF, INOUTF, MDNCPW, REFNOS, and LUNITS. LINFO, 
WINFO, and HINFO contained the variable, database name, com- 
ment and default values for the length, width and height of 
the block. DIMFRM contained the format information for 
Beading Erom Or writing to files. 

Before menu "DIMENSIO" was presented to the user, two 
actions occurred. The first was the calling of the logi- 
cal function UNITLF by the statement 


LOGVAL=UNITLF (CONVLM, NAML@2 ,NAML@6,NAML12,ALLFLG, 
PSTLUN, UIOLUN, NCPW) 


UNITLF, discussed in Chapter 7, produced the multiplicative 
conversion factor CONVLM for converting the dimensions in 
the input length unit to values in the program standard 
length unit (meter). The second through fourth variables 
in UNITLF's calling sequence represented various abbrevia- 
tions of the length unit the user had selected for input/ 
output. UNITLF was able to provide this information be- 
cause of the values of PSTLUN and UIOLUN. The first in- 
dicated program standard length unit, the second user i/o 
length unit. As a vair they were an index to locating 
BHewOEner Information. 

TRemGmnereacElOn wiich occurred immediately in DIMENS 
was the setting of LOCALL equal to ALLFLG. If this made 
LOCALL equal to .TRUE., menu "DIMENSIO" was not presented 
and DIMENS immediately started operating on all the menu 
choices. 


BZ 








If the user selected "width" from the menu, the pro- 
Seamenext rererred to TOFLAG. If IOFLAG=1 (reading), the 


program branched to the statement 


LOGVAL=RSCLDR(W,LOCALL,MTERSE, IMODE,NCPW,WIDNAM, 
CONE, CONVLA, NAMLI2,.FALSE.,.TRUE., 
PMES , WMORGN, RNRFIL, LWF RM, DEFALW) 


Heogted | funetion RSCLDR is the first of three functions 
for reading real scalars. The value read in for width, 
in program standard units, was stored in W. IMODE indi- 
cated the source of the reading. WIDNAM was the 8~-charac- 
ter database name for width. CONVLM and CONVLA were re- 
spectively the multiplicative and additive conversion fac- 
tors for changing the read in width to the value in program 
Standard units via the expression 

W=W * CONVLM + CONFLA 
BONVER Was bOcally declared 0. NAML12 was the 12-charac- 
ter version of the i/o length unit and was used in prompt- 
ing message preparation and database comment comparison. 
The parameter .FALSE. represented the variable VITAL which 
indicated if the variable W was essential for input con- 
tinuation. The parameter .TRUE. was for PMPREP, indica- 
ting that the reading subprograms would prepare the 
prompting message PMES, at this point undefined. Since 
PMES was a local variable not passed to DIMENS by the 
calling sequence or a labeled common block it was dimen- 


Sioned "16" in DIMENS. WMORGN contained the description 
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of the width, including space allotted for inserting the 
units. RNRFIL and LWPRM were the reference number and 
format respectively for reaching width from a file. 
DEFALW was the default value for width if the user wished 
to set W equal to that. 
If IOFLAG=2, the subprogram called the editing rou- 
tines by the expression 
LOGVAL=RSCEDT (W, LOCALL, MTERSE,NCPW,WIDNAM, CONVLM, 
CONVEA, NAME 272 GaRUE. ,PMES ,WMORGN, 
RNRFIL, LWFRM, DEFLAW) 
This was very similar to the reading function except that 
IMODE was not specified. This was because RSCEDT itself 
defined and employed a variable EDMODE, of value 2, for 
the terminal, in lieu of IMODE, when it called RSCLDR. 
Pinative 2: LEOREAG=3, the real scalar writing) rou- 
tines were invoked by the statement 
LOGVAL=RSCDMP (LOCALL, MTERSE, OMODE, NCPW,W,WIDNAM, 
eclvin,CONVLA, NAMLI2, .TRUE.,PMES, 
WMORGN , RNWFIL, LWRFM) 
Observe that OMODE was used to indicate destination of the 
value of W for writing. Also note the use of RNWFIL to in- 
dicate the file reference number for writing with Fortran 
WRITE, using the format supplied by LWFRM. 
Because the height variable H represented a four- 


element array, the logical functions called were different. 


For reading (IOFLAG=1) DIMENS branched to the statement 


54 





LOGVAL=RA1LLDR(H,LOCALL,NGOT,MTERSE,IMODE,NCPW, HEINAM, 
MXTOGT , CONVLM, CONVLA, NAML12,.FALSE., 
. TRUE. ,PMES,HMORGN, RNRFIL,HFRM,NDEFH, 
DEFALH) 


Several new variables appear here. MXTOGT represented the 
maximum number of elements to extract from the source when 
the source was a database or the terminal. NGOT represen- 
ted the actual number of elements read from the source. 
Both MXTOGT and NGOT were initialized as 4 in DIMENS. VITAL 
was defined by the .FALSE. and PMPREP by the .TRUE.. HFRM 
Gemcalnea the fLormat for reading the array from a file. 
NDEFH and DEFALH were respectively the number of default 
values and a four-element array containing the default 
values for height. 

Because the array editing routines had not yet been 
VEweect 7 oGOovision for calling a dummy routine, RAREDT, 
waS included in DIMENS. 


For writing (IOFLAG=3), the program branched to 


LOGVAL=RARDMP (LOCALL, MTERSE, OMODE,NCPW,H,HEINAM, 
NFROM,NGOT ,CONVLM,CONVLA,NAMLI12, 
.TRUE., PMES , HMORGN, RNWFIL,HFRM) 


NGOT, mentioned above, and NFROM, were initialized as 4 
and 1 respectively in DIMENS. NGOT could have a value 
Giftferent from 4 only if less than four elements were read 


in when RALLDR was called. 
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2.4 The Output Series Subprograms 

The output series consisted of two subprograms - 
OUTPUT and VANDWT - for working with the volumes and 
weights calculated by COMPUT. These had direct parallels 
to INPUT and DIMENS and need not be discussed in detail. 
OUTPUT offered the user the capability of invoking MXUNIT, 
via the menu item "unit", in case the user wished to 
write the volume and weight in different units from those 
he had used for reading in the block dimensions. 

2.5 General Programming Comments 

This chapter will conclude with some comments about 
writing modules. It is hoped that the reader has some 
understanding of the calling parameters used by module 
subprograms when invoking extended DEX library routines. 
In some cases large numbers of variables appear in the 
calling sequences. This is due to the fact, as will be 
pointed out in the next chapter, that the library rou- 
tines use no common blocks. 

One suggestion already emphasized is the use of a 
BLOCK DATA subprogram to initialize all input/output 
variables and their associated variables. This adds some 
extra work by increasing the number of common block vari- 
ables, such as the database names, comments and default 
values. However, the improved efficiency for checking 
values and dimensions is considered to outweigh this dis- 


advantage. 
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When writing a module, to determine the menus required 
it 1S easiest to work backwards in the opposite direction 
Pomeme OEGer OL USe. Identify the input and output vari- 
ables and place them in menus. Then establish a supervis- 
ory input menu and a supervisory output menu. For example, 
one may contain the group name for the input variables, such 
as "dimensions" in Cube, plus a units item to allow the 
MoereenewGhOlce ©f 17© Units. At this point the module 
author may be almost done with the module design phase, 
because he can frequently incorporate the standard routines 
MAINPG and MODIO to complete his set. MXUNIT is also 
offered as a very adaptable, comprehensive routine for 
Panecierie Untts., In a SlLtuation like the Machinery Weight 
Estimating Module in Chapter 8, one menu suffices for both 
Mmet@emancroOltesit Variables. Figure 2-5 illustrates the 
difference in flow between the main subroutine and the 
ifo variables for the two modules. Yet both use ldentical 
MAINPG and MODIO subprograms and only slightly different 
versions of MXUNIT. 

When establishing menus a few rules must be kept in 
mind. The maximum number of menu items 1s twelve. When 
constructing the eight character menu litem names, no 
blanks are allowed between characters but are acceptable 
after all the characters. If each menu item begins with 


peomererent Character, Only that one character has to be 
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entered by the user to enable DEX routine MENUIN to 


identify the selection. 






MODIO 





INPUT CULEUT 


RESULTS 


Cube Module 










MODIO 


MWCHRT 


Machinery Weight Estimating Module 


Figure 2-5. Comparison of Module Input/Output Flow 
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CHAPTER 3 


THE EXTENDED DEX LIBRARY ENVIRONMENT SETTING ROUTINES 


Serle LNtLroduction 
Upon entering the module level of DEX operation, the 
user needs to establish or verify the environment which 
Suits his requirements. Four extended DEX library subrou- 
tines give him the capability to do this. They are: 
(1) DIALOG, which sets the type of module dialogue 
(2) SOURCE, which defines the location of informa- 
tion to be read 
feito titmewrarehn defines the location to which in- 
formation 1s to be written 
(4) MDMODE, which displays on the terminal the cur- 
rent status of the type of dialogue, the 
source, the destination and the file ref- 
erence numbers for Fortran READ and WRITE 
to sequential files. 
Each of these will be discussed in this chapter. Logical 
EFUNCtiOn CHKRNG, revised during this investigation, is also 
discussed here, although it will eventually become a DEX 
routine and not an extended DEX library function. 
S22 cuproutine DIALOG 
3.2.1. Menu and Calling Parameter. Subroutine DIALOG 


would normally be called by a subroutine similar to the 


De, 





subroutine MAINPG of the Cube Module. In that specific 
case it was done by selecting item "dialogue" from menu 
"MOD.MAIN". DIALOG has its own menu, and this is illus- 


trated in Figure 3-l. Note the absence of an item "done", 


$ + -------- ~ 
S + MENU - 
S + MOD.ALTR + 
S + —------- + 
S 1 + TERSE + 
S + —-------- + 
Se cet) VERsOort 
$ + -------- + 


Figure 3-1. Menu "MOD.ALTR" 
(for Subroutine DIALOG) 
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which appeared in most of the Cube Module menus. This is 
typical for the subroutines of this chapter. Since the 
user only makes one choice from these menus, the subpro- 
grams automatically return control to the calling program 
(e.g. MAINPG) without further action by the user. 

It should also be called to the reader's attention 
that the DEX library subroutines employ no labeled common 
blocks. Rather, all variable values are transmitted by 
means of the calling sequences. This was done to minimize 
the possibility of inadvertently passing improper values 
among the many subprograms which share the same commons. 
The calling sequence presents a readily-checked format for 
tracing errors. 

The only variable in the calling sequence for DIALOG 
1s the logical variable MTERSE. If MTERSE=.TRUE., the 
Pvecue type is terse; it is is .FALSE. the dialogue is 
verbose. These two types of dialogues are offered to sat- 
isfy the needs of the individual user. For the new user, 
the verbose dialogue provides longer messages from the 
module or DEX to facilitate learning how to use them. The 
terse dialogue allows more rapid operations by the experi- 
enced user. 

Initialized in BLOCK DATA, MTERSE can have its value 
changed by the correct selection from menu "MOD.ALTR". 


This is accomplished by subroutine MENUIN. MENUIN is a 
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DEX integer function (see reference [5]) which converts a 
menu selection into an integer value. In DIALOG, the fol- 
lowing statements are involved in this process:* 
DATA LMS/8/ 
DATA MENUNM/4HMOD. , 4HALTR/ 


DATA NITEMS/2/ 
DATA ITEMS/4HTERS , 4HE ; 


i /4HVERB,4HOSE / 
CALL STRPAK (MESS, LMS ,4H< ,2-9HSEEECT TYPE OF MOD 
LULE DIALOGUES) 
ITEM=MENUIN (MENUNM,NITEMS , ITEMS , MESS) 
MENUIN prints both the prompting message MESS shown 
above and the message 
*ENTER AN ITEM FROM MENU ~- MOD.ALTR 
MENUIN sets ITEM equal to 1] if the user selects TERSE and 
2 if he selects VERBOSE. ITEM is then used to branch to 
statements which make MTERSE either .TRUE. or .FALSE. 
aS appropriate. Both branches return control to the cal- 
ling program. 
Sao StoreurLne SOURCE 
See eeeiienw and Calling Sequence. Subroutine SOURCE, 
normally accessed from a subprogram like MAINPG, allows 
the user to select from the menu shown in Figure 3-2 the 
source of information to be read. Subroutine MENUIN 


assigns a value between 1 and 5 to IMODE depending on the 


mser’'s choice. 


* STRPAK 1S a DEX routine which inserts character strings 
PieCemmetmtedel abray in the DEX format of four charac-— 
Pomc pert WOrd. Sseerref [5]. 
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The calling sequence for SOURCE is as follows: 


SUBROUTINE SOURCE (IMODE,DBFNME,IFILNM,RNRFIL, 
MTERSE ,NCPW) 


DBFNME is the database filename when the source is a 
database. IFILNM is the name of the sequential file if 
the user intends to read from a file. RNRFIL is an input 
variable defined in BLOCK DATA which represents the 
device number to be assigned to file IFILNM. The infor- 
mation in the file will be read in by one of the reading 
routines using the statement of the form 

READ (RNRFIL, FORMAT) X 
where X represents the variable being read. MTERSE and 
NCPW are required here for the preparation of the menu 
prompting message and other error messages supplied by 


subroutine source. 


S + -------- + 
S = MENU - 
S an SOUPS. Oleh + 
S + —-------- + 
S J] + DATABASE + 
S + -------- + 
S 2 + TERMINAL + 
S + -------- + 
S 3 + SCREEN - 
$ + -------- + 
S 4+ FILE 4. 
$ + -------- + 
S Se ree e AU Lt 
$ + =------- + 


Figure 3-2. Menu "SOURCE" 
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3.3.2. Operation of SOURCE. SOURCE commences execu- 
tion by calling MENUIN to prompt the user to make a menu 
selection. MENUIN assigns an appropriate value to IMODE 
mom Dranching. 

If IMODE=1, the subroutine requires a database via 
DEX logical function DBOPEN. If there already is an open 
database, DBOPEN asks the user if he wants to use it, and 


if so, if he wants to save it ("sSave" has the usual mean- 
ing of writing a copy into memory from the buffers) be- 
fore uSing it. If a database is "active", meaning a copy 
1S in the buffers but there is also a saved copy in mem- 
ory, the user is asked only if he wants to use it. If the 
user answers "no" to either of these questions, or if there 
is no active or open database, DBOPEN prompts the user for 
the name of either a new one to be created or an existing 
one to be opened. DBFNME is assigned that name. When 
Pee is Gene Comerol 1s returned to the calling program. 
If IMODE=2 (terminal) or 5 (default values) control 
Sie eEecurns toveme calling program. If IMODE=3, indi- 
cating that the user hoped to employ DEX routines to read 
X-Y coordinates from a screen plot, he is informed that 
this mode of module input has not been implemented yet. 
IMODE=4 causes the calling of subroutine GETFLNM 


which asks the user the name of the sequential file to be 
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mead. Lhen logical function SETDEV assigns RNRFIL to 
IFILNM before control returns to the calling program. 
3.4 Subroutine DESTIN 

3.4.1 Menu and Calling Sequence. Subroutine DESTIN 
is similar to SOURCE except that there are only four pos- 
Sible choices, as seen in the menu illustration in Figure 
3-3. The calling sequence contains six parameters: 


SUBROUTINE DESTIN (OMODE ,DBFNME,OFILNM,RNWFIL, 
MTERSE ,NCPW) 


OMODE is assigned a value between 1 and 4 by MENUIN. 
DBFNME is the same as in SOURCE. OFILNM is the name of 
the sequential file to which output is to be written. 
RNWFIL iS an input variable defined in BLOCK DATA which 
represents the file reference number to be assigned to 
SEoNMerorerortran WRITE. 

3.4.2 Operation of DESTIN. This subroutine behaves 
very Similarly to SOURCE. If OMODE=1, DBOPEN checks for 
and opens as necessary a database and assigned DBFNME its 
name. If OMODE=2, control simply returns to the calling 
program. If the user selected the screen in order to do 
plotting, he is informed that this mode of output has not 
yet been implemented and is asked to make another selec- 
tion. If OMODE=4, the user is asked the file name and 
Pei omesstamed to OFLLNM. Then logical function SETDEV 
assigns RNWFIL to the file and control is returned to the 


calling program. 
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S + —--------— + 
S$ - MENU + 
> + DESTINAT + 
Ss + -------- + 
S$ 1+ DATABASE + 
S + —-—----- + 
S 2 + TERMINAL + 
S + -------- + 
S 3 + SCREEN + 
$ + =—~——=== 
S 4+ FILE + 
= + -------- * 


Figure 3-3. Menu "DESTINAT" 
(for Subroutine DESTIN) 


3.5 Subroutine MDMODE 
Seo eesomectiOon. Subroutine MPMODE informs the user 
of the current value of the following variables: 


(1) MTERSE, which denotes the type of module dia- 
logue 


(2) IMODE , which denotes the source of information 
to be read 


(3) OMODE , which denotes the destination of infor- 
mation to be written 


(4) RNRFIL, which denotes the file reference number 
for module Fortran READ from a sequential 
file 


(5) RNWFIL, which denotes the file reference number 
for module Fortran WRITE to a sequential 


file 
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After displaying this information, or an error message if 
a failure occurs, MDMODE returns control to the calling 
program. 

3.5.2 Operation of MDMODE. The calling sequence for 
MDMODE contains only variables already discussed. 


SUBROUTINE MDMODE (IMODE ,OMODE,RNRFIL,RNWFIL, 
MTERSE ,NCPW) 


MDMODE does not display the numerical values of IMODE and 
OMODE but rather, for the user's convenience, it prints 
character strings defining the source and destination, e.g. 
"a dex created database". Similarly, for MTERSE, it prints 
eeeieo mand. verbose” vice ".TRUE." or ".FALSE.". 
3.6 Logical Function CHKRNG 

Logical function CHKRNG determines if an integer num- 


ber 1S within the range defined by two other integer num- 


bers. If not, an appropriate error message is issued and 
CHKRNG is returned .FALSE.. The calling sequence is as 
Follows: 


LOGICAL FUNCTION CHKRNG (NUMBER,MNEMON,MINNUM, 
MAXNUM , NCPW) 


The routine checks if NUMBER 1s between the lower number 
MINNUM and the higher number MAXNUM. MNEMON 1s an 8- 
character memonic for NUMBER used in the error message. 
The use of CHKRNG avoids the need for the module author 


to include a message in his program. 
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CHAPTER 4 


THE EXTENDED DEX LIBRARY READING ROUTINES 


4.1 General Description 

eee sunction. Information, which includes both 
input values and previously calculated output values, 
resides in four locations: DEX-created databases, the 
user himself, requested files and default data stored in 
the module. The user actually presents two distinct 
sources of information to the computer because of the two 
ways in which he can transmit data at the terminal: the 
first in the form of alphanumeric characters and the other 
by the location of a pen-pointer or cross~hairs on a plot 
on the screen. The latter method has not yet been imple- 
mented in DEX at MIT. 

The function of the extended DEX library reading 
routines is to permit the transmission of that infor- 
mMation to the module so that it can be written to other 
locations, such as the terminal for inspection, and/or 
used as input for the calculations being performed. 

PaiweeeOroganlzatLton. Bight logical functions 
comprise the reading routines group. They are listed 


here by the type of variable on which the operate: 
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Integer Real Real 


Scalar Scalar Array 
ILS (O1G Di RSCLDR RALLDR 
ISCPMP RVAPMP 

tok EAD Fs cs RALRED 


The real scalar and array categories share RVAPMP. 

These routines could be categorized horizontally 
by their specific jobs, as evidenced by the similarities 
in their names. The top three are called "loaders". 
These are the functions that appear in the module sub- 
programs where it is desired to read variables, and to 
the module author, for all intents and purposes, they are 
the reading routines. He does not need to be aware that 
they actually call the others to do the work. 

If the user intends to input from the terminal he 
needs to be prompted for the correct information. This 
prompting message can be supplied by the module or it 
can be prepared by two routines in this group called 
"srompters". The loaders call the prompters as they are 
required. Having ensured that a prompting message exists, 
the loaders then call the third category, the "readers", 
to actually read in and assign the values to the input. 


output and working variables. 
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oe Integer Scalar Series 
Wece LoCcuDR 


Wieoeeeeecd Liang sequence. “The calling 
sequence for logical function ISCLDR includes 17 vari- 
ables listed here: 

LOGICAL FUNCTION ISCLDR(IVAR,ALLFLG, 
MTERSE , TOMODE ,NCPW,DBNAME , VITAL 
MENUFL,MENUNM,NITEMS , ITEMS ,PMPREP, 
PMES , PMORGN , RNFILE, FORMAT, DEFALT) 
From the point of view of the function, IVAR is an output 
variable, ALLFG is both input and output, and the remainder 
are all input variables. 
IVAR is where the value of the integer sought will 
be stored. VITAL should be discussed next. An essential 
input variable, that is one required when reading input 
so that subsequent values can be entered correctly, is 
indicated when the logical variable VITAL has a value 
.TRUE.. This iS important to the value of ALLFG. ALLFLG 
indicates the status of the calling program “all" option 
(active when ALLFLG=.TRUE.). If both VITAL and ALLFLG 
are .TRUE. and IVAR is not read successfully, or the 
prompting message is not prepared successfully, ALLFLG 
will be changed to .FALSE.. ALLFLG's value can also be 
changed to .FALSE. during a reading evolution if IOMODE=4 


(file source) and a premature end-of-file is encountered. 


Otherwise ALLFLG will retain its input value. 


70 





MTERSE indicates whether the module dialogue is 
terse or verbose. IOMODE denotes the source of input and 
corresponds to IMODE in the calling program. NCPW is the 
number of characters per word assumed by the DEX routines. 
DBNAME is where the database name of the integer is stored. 
Eight characters (including blanks) must be defined for 
this variable. 

MENUFL is a logical variable which indicates if the 
integer sought will be a menu selection. If it is .TRUE., 
the next three variables must be defined. MENUNM is the 
elight-character name of the menu from which the selection 
wlll be made. NITEMS is the number of items in the menu. 
In the current version of DEX, the maximum number of menu 
items allowed is 12. ITEMS are the menu choices. Each 
choice is described by a name of eight characters (in- 
cluding blanks). Therefore, with four characters per 
word, ITEMS must be dimensioned as twice NITEMS where it 
first appears. The reader may wish to refer to the AUNIT 
Series routines of Chapter 7 as examples of where menus 
are used to define integer values. 

PMPREP is a logical variable which, when .TRUE., 
indicates that function ISCPMP will prepare the prompting 
message for the menu or INTIN. INTIN is a DEX routine 


which reads integer values entered from the terminal. 
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If PMPREP=.FALSE., the calling program supplies the 
prompting message in PMES. 

PMES can be up to 64 characters long, and if less 
than 64 characters it must include the trim character, 
"<", last to signal the end of the string. Note that 
if PMPREP=.TRUE., PMES is undefined in the calling se- 
muence™= OL ISCLDR. 

PMORGN ("prompting message origin") is a character 
string, usually the database comment, which identifies 
the variable sought. Like PMES, it must be 64 charac- 
ters or less long and must include the trim character at 
its end if less than 64. When IOMODE=1, PMORGN will be 
compared with the database comment and differences brought 
to the user's attention. 

RNPULE, @orresponding to RNRPIL of the calling 
program, is the device number for Fortran READ if the 
integer is to be read from a file. FORMAT is the format 
for reading from the file. DEFALT is the default value 
of the integer sought when IOMODE=5. 

4.2.1.2 Characteristics. When the source 
of the integer is the terminal, ISCLDR invokes routine 
CHKRNG to verify that NITEMS is between 1 and 12 inclusive 
when MENUFL=.TRUE.. If PMPREP=.TRUE., ISCLDR invokes 
ISCPMP to prepare the prompting message. If ISCPMP is 


returned .FALSE., ISCLDR is also set to .FALSE. and 


UA 





@emerOle6eturns tO the calling program. Otherwise, for 
terminal input, as well as database, file and default 
womeee input, ISCLDR cals logical function ISREAD to do 
the reading. ISCLDR is set to .TRUE. or .FALSE. depending 
on the Similar value of ISREAD and control returns to 
the calling program. 

ISCLDR becomes .FALSE. if ISCPMP or ISREAD fails. 
It also becomes .FALSE. if the programmer has bypassed 
previous checks and set IOMODE=3. The user is informed 
by ISCLDR that integer scalars cannot be read in from a 
screen supplying x-y coordinates. The subprogram then 
checks VITAL and if .TRUE., it advises the user that the 
variable is essential for program continuation and must 
be corrected. Then, if ALLFLG=.TRUE., it is changed to 
-FALSE. and the user is advised that the calling program 
Te operon 1S aborted. ISCLDR is set to .FALSE. and 
Senesel reeurns to the calling program. 

4.2.2 ISCPMP 

Ue eeieecal line sequence. Logical function 

ISCPMP is used to prepare a prompting message suitable 
for identifying the integer being sought when the source 
is the terminal (IOMODE=2) and PMPREP=.TRUE.. The 
calling sequence for this function is as follows: 


LOGICAL FUNCTION ISCPMP (PMES ,ALLFLG,MTERSE,NCPW, 
DBNAME , VITAL, MENUFL, PMORGN) 
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These parameters have been described in section 4.2.1.1 
PMES is the output variable where the prompting message 
sought 1s stored. MTERSE is needea here to determine 
whether a brief or long message is to be prepared. 
MENUFL is included here but presently it is not used by 
PSCPMP . 

tee 2.2 Characteristics. ~ESCPMP creates 
the prompting message by insering the word "ENTER", 
followed by a short or long description of the variable 
depending on MTERSE, into PMES. When the dialogue is 
verbose, PMORGN is used as the indentifying string. The 
program scans it for the location of the trim character 
to determine its length. If the string 1s 5l characters 
or less, the message can be fit on one line. “ENTER" 
and "PMORGN" are copied into PMES. If, however, PMORGN 
has more than 64 characters, the prompting message must 
be two lines long. The word "ENTER" is printed immediately 
and PMORGN alone is copied onto PMES, to be printed by 
PSREAD . 

When the dialogue is terse, PMES is created from 
"FNTER" and the database name, DBNAME, with a trim 
character added at the end. 

MaPreraibaure Occurs 1n preparing the prompting 
message, an error message is used. Then, when VITAL= 


PTRUB.)) the user is advised that the variable is 
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necessary for program input continuation and the 
problem must be corrected. When both VITAL and ALLFLG 
Mee eee, tie later Chlanges to .FALSE. and the program 
advises the user that the calling program "all" option 
is aborted. Finally, ISCPMP is set to .FALSE. and con- 
trol returns to ISCLDR. If the message preparation is 
successful, ISCPMP is set to .TRUE. before returning 
Seontro! to PSCLDR. 
eo ee L OREAD 
4.2.3.1 Calling sequence. Logial function 
ISREAD actually does the reading of the integer from the 
source defined by IOMODE. The calling sequence for 
ISREAD is as follows: 
LOGICAL FUNCTION ISREAD(IVAR,ALLFLG, 
MTERoe , beMebE (NCPW, DBNAME, VITAL 
VENUE Oo, MENUNM, NETEMS ,ITEMS, 
PMES, RNF ILE, FORMAT, DEFALT) 
It is almost identical to ISCLDR, the difference being 
that PMPREP is no longer needed. PMES should be defined 
here and it must include the trim character if not 64 
Characters long. 
4.2.3.2 Characteristics. ISREAD branches 
depending on the value of IOMODE. If the source of the 
integer is a database (IOMODE=1), ISREAD extracts the 
Value using the DEX integer function IGET (see reference 


[5]). IGET provides error codes which, if other than 
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success, cause appropriate error feedback messages to be 
issued. 

When IOMODE=2 (terminal input), and MENUFL=.TRUE., 
routine MENUIN is invoked to obtain IVAR from the menu 
selection. When a menu is not employed, DEX routine 
INTIN prompts the uSer to supply the integer value and 
reads what 1S entered at the terminal. 

For IOMODE=4 (file source), ISREAD uses a Fortran 
READ statement, involving RNFILE and FORMAT, to read from 
the file. The program issues a warning if a premature 
end-of-file is encountered. 

Whenever an error occurs in the reading, or if the 
user insists on trying IOMODE=3, VITAL and ALLFLG are 
checked. A warning that the variable 1S essential for 
program Continuation is issued when VITAL=.TRUE.. ALLFLG 
will then be set to .FALSE. if not already. ALLFLG's 
value will also be changed, even if the variable is not 
essential, if either no open database was found (IOMODE=1) 
or a premature end-of-file is encountered (IOMODE=4), 
Since further attempts at reading from these sources 
would be fruitless. In all cases of errors, ISREAD is 
Peecour Won. anaucomterol is) returned to the calling 
program. When the reading is successful, ISREAD is set 


foo. TRUE. . 
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4.3 Real Scalar Series 

Teele serer description. The function of this group 
of routines 1S to permit the user to read real scalar 
values from any of the designated sources. Three logical 
functions make up this series:  RSCLDR, RVAPMP and 
RSREAD. RVAPMP prepared prompting messages for reading 
both real scalars and real arrays from the terminal. 

4.3.2 RSGEDR 

4.3.2.1 Calling sequence. Logical function 
RSCLDR is invoked from the module. Its calling sequence 
is as follows: 
LOGICAL FUNCTION RSCLDR(RVAR,ALLFLG, 
MPEP RoR vOMeOpDE NCE, 
DBNAME,UNITFM, UNITFA, UNITNM, VITAL 
Pip R Ee ae ioe MOnGN ARNE Lon; EORMAT ; 
PEPALT ) 
Many of these variables are identical to those used in 
1SEiOR . 

RVAR will be assigned the value, in program standard 
units, of the real number to be read. UNITFM and UNITFA 
are respectively the multiplicative and additive conver- 
Sion factors which convert the real scalar read from the 
user input/output units to the program units. The con- 
Veto TeGMMmOGCCUES eli RokPAD.  UNITNM 1s a l2-character ver- 


Sion (including blanks) of the user i/o units, which is 


used in preparing the prompting message. If the real 
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scalar is not dimensional, UNITFM must be equal to 1.0, 
UNITFA must equal 0.0 and UNITNM is undefined. 

PMORGN contains a string of 64 characters or less 
which identify the variable sought. If it has less than 
64 characters it must have the trim character at the 


end of the string. If the real variable has units, 


which UNITNM is inserted at the appropriate time. PMES 
must be dimensioned sufficiently large to accomodate 
PMORGN plus 6 characters (for "ENTER ") or 64 characters, 
whichever is less. 
4.3.2.2 Characteristics. RSCLDR behaves 

Similarly to ISCLDR. If the source is the terminal and 
PMPREP=.TRUE., it calls RVAPMP to prepare a prompting 
message. When the preparation is unsuccessful, RVAPMP 
1s returned .FALSE.. RSCLDR becomes .FALSE. also and con- 
trol returns to the calling program. If, however, the 
message preparation is successful, or for IOMODE=l1, 4 
Sumer soChDrecallS RGREAD to read the real value. RSCLDR 
Peso emeousenUE.sor .FALSE. depending on the success or 
EaLlUre Omens KnPAn. 

When IOMODE=3, RSCLDR informs the user that reading 
x-y coordinates from a graph on the screen in inappropiate 


for real scalar input. If VITAL=.TRUE., it 1sSsues an 
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advisory message to the user that the variable is essential 
for program continuation. ALLFLG is changed to .FALSE. 
1f not already, with a warning that the "all" option is 
BboOGted, seRSCLDR 15 set to .FALSE., and control returns 
eo the calling program. 
4.3.3  RVAPMP 
4.3.3.1 Calling sequence. Both RSCLDR and 
RALLDR invoke RVAPMP to prepare a prompting message for 
real scalars and real arrays respectively. The calling 
sequence is: 
LOGICAL FUNCTION RVAPMP (PMES,ALLFLG, 

MTERSE,NCPW,DBNAME, UNITNM, VITAL, 

PMORGN) 
These parameters are identical to those for ISCPMP ex- 
cept for UNITNM which carries the user i/o unit to be 
inserted. into PMES. 


4.3.3.2 Characteristics. When RVAPMP is 


invoked, PMORGN is scanned for the location of the trim 


UNITPT. The presence of UNITPT indicates that the vari- 
able is dimensional. 

When the dialogue is verbose, the prompting mes- 
sage will be one line long if the trim character is 
found before the 59th position. The word "ENTER " and 


PMORGN are copied into PMES, and UNITNM is inserted 


GPS, 





into UNITPT if applicable. This is why UNITNM must be 
12 characters long. If PMORGN is longer than 58 charac- 
ters, the prompting message will be two lines long. The 
string "ENTER" is printed immediately and PMORGN alone 
is copied into PMES, corrected by UNITNM if necessary. 
PMES will be the second line of the prompting message. 

When the dialogue is terse, PMES is created from 
the word "ENTER ", followed by DBNAME, UNITPT adjusted 
by UNITNM, and lastly a trim character. 

If the message preparation is eteeec seul. RVAPMP 
1s set to .TRUE. and control returns to RSCLDR or RAILLDR 
as applicable. If, however, an error occurs, VITAL is 
checked. The user is advised that the variable is es- 
sential when VITAL=.TRUE.. If ALLFLG also is .TRUE., 
it is changed to .FALSE. and the user told the "all" 
option 1S no longer in effect. In all cases of error, 
RVAPMP is returned as .FALSE. to the calling program. 
When successful, RVAPMP is set to .TRUE. before returning 
SOM risen. 

4.3.4  RSREAD 

toe calling sequence. Logical function 
RSREAD reads the real scalar sought from one of the four 
valid sources of information. It includes 13 parameters 
in its calling sequence, almost all of which are identi- 


cal to those in RSCLDR. The sequence is listed here: 
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LOGICAL FUNCTION RSREAD (RVAR, ALLFLG 

MTERSE, IOMODE ,NCPW,DBNAME, 

UNE UNE A; 

VITAL, PMES, RNFILE,FORMAT,DEFALT) 
Note the absence of UNITNM, PMPREP and PMORGN. These 
variables have either been used or incorporated into 
PMES, which is defined at this point. 

4.3.4.2 Characteristics. If the source of 
information is indicated to be the user hoping to input 
x-y coordinates from the screen, he is informed that this 
mode of input iS inappropriate for real scalar input. 
The usual checks of VITAL and ALLFLG and messages occur. 
The DEX routine RGET is used to read the real 
scalar from the database and it returns error codes for 
either success or the problems which can occur. The 
latter are brought to the user's attention. DEX routine 
REALIN (reference [5]) is used to read the real scalar 
from the terminal. 
In cases where an error occurs, the user is informed 

if the variable is essential for input continuation. 
When VITAL and ALLFLG are both .TRUE., ALLFLG is set to 
FALSE. and the user is informed. Further, if IOMODE=1 
but there is no open database, or IOMODE=4 but a pre- 
mature end-of-file is encountered, ALLFLG is set to 


-FALSE. regardless of the value of VITAI. 


81 





RSREAD is set to .TRUE. if successful and .FALSE. 
if an error occurs, and control is then returned to the 
ealiang Orogram. When successful, prior to returning 
control, the value read is converted into program stan- 
dard units by the expression 


RVAL=RVAL * UNITFM + UNITFA 


4.4 Real Array Series 

4.4.1 Brief description. The real array reading 
routines include RALLDR and RAILRED, plus RVAPMP which is 
shared with the real scalar series. Their function is 
to read one dimension real arrays, up to the current 
Dans lime set 200 elements, from any of the four valid 
sources of input. The reading of x-y coordinates from 
the screen, while legitimate for an array since it can 
store a pair of real numbers, has not been implemented 
yet and the user is advised of this. The next generation 
of DEX at MIT will include routines for reading and 
writing two arrays Simultaneously for Beanies tasks. 

4.4.2 RAILLDR. 

4.4.2.1 Calling sequence. Logical function 

RALLDR invokes RAILRED to read a real array from the 
designated source. It also calls RVAPMP as necessary to 
prepare a prompting message for terminal input. Its 
calling sequence, listed here, has a few ovarameters not 


seen in RSCLDR: 
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LOGICAL FUNCTION RALLDR(RLARR,ALLFLG,NGOT, 
MTERSE, LOMODE,NCPW, DBNAME, 
MXTOGT,UNITFM, UNITFA,UNITNM, 
vVealT AT 
PMPREP,EMES, PMORGN, RNFILE,FORMAT, 
NDEF , DEFALT) 
RIARR is the real array that will store the elements, in 
program standard units, that are read. MXTOGT repre- 
sents the maximum number of elements to be read into 
R1IARR, and is the dimensioned size of RILARR. NGOT is 
the number of elements actually read and can be less than 
or equal to MXTOGT. NGOT need not be defined when RALLDR 
is invoked. NDEF is the number of default values and is 
provided to allow the default condition to be smaller 
than the maximum capability of the array. 
4.4.2.2 Characteristics. When IOMODE=2 
and PMPREP=.TRUE., RALLDR invokes RVAPMP to prepare 
PMES. When RVAPMP is successful, and for the other 
Valmicmsolreeswer Inemt (LOMODE=1, 4 or 5), RALLDR calls 
RALRED. If either RVAPMP or RALRED are not successful, 
RA1ILDR is set equal to .FALSE.. This also occurs when 
IOMODE=3. It is set to .TRUE. otherwise and control is 
Geeuenea to the calling program. 
4.4.3 RA1RED 


4.4.3.1 Calling sequence. The calling 


Sequence for RALRED is as follows: 
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LOGICAL FUNCTION RALRED (R1IARR,ALLFLG,NGCT 
MTEBRS&, LOMODE,NCPW,DENAME ,MXTOGT, 
UNEIEMAUNITEA, VITAL, 
PMES, RNF ILE, FORMAT, NDEF , DEFALT) 
Like in RSREAD, UNITNM, PMPREP and PMORGN are no longer 
required. MXTOGT represents the maximum number of ele- 
ments to be read into RIARR, always starting at position 
1. NGOT is defined in RAI1RED. 

Meee eCNaracteristics. RAILRED first 
employs DEX routine CHKRNG to verify that MXTOGT is not 
greater than the maximum DEX array size (currently 200 
elements). 

If IOMODE=3, the real array iS not read and the 
appropriate checks of VITAL and ALLFLG and message 
weslang OCCuur . 

The reading of an array from a database 1S accomp- 
lished by DEX routine AGET, which seeks MXTOGT elements 
from the database array. AGET returns six possible re- 
Sult codes. RCODE=0 is simple success, that is, there 
were MXTOGT elements stored in the database array. NGOT 
1s set equal to MXTOGT. If RCODE=1, there was no open 
database. This causes ALLFLG to change to .FALSE. if 
1t was .TRUE. and RAILRED to be set to .FALSE.. RAILRED 
1s also set to .FALSE. if the variable does not exist in 
the database (RCODE=2), if it is not an array (RCODE=3), 


of if it was undefined (RCODE=4). When the number of 
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elements requested exceeds the number stored (RCODE=5), 
the extra elements in RIARR are set equal to 0.0 but 
NGOT 1S set equal to the number stored. When the number 
of elements requested is less than the number of elements 
stored (RCODE=6), the first MXTOGT elements are read into 
RLARR and NGOT is set equal to MXTOGT. The user is ad- 
vised in these circumstances of what has occurred. 

When reading from the terminal, DEX logical function 
REALIN is invoked with the following statement: 

LOGVAL = REALIN (MXTOGT,NEED, RLARR, PMES) 

A prompting message asks the user to input up to MXTOGT 
values. NEED represents the difference between the 
number of elements read in and MXTOGT. If no elements 
are read (NEED=MXTOGT) the reading is considered a failure. 
The reading is considered successful if at least one num- 
ber is entered. NGOT is set equal to the number of ele- 
ments entered. 

The user is advised if a premature end-of-file is 
encountered when reading from a file. 

When failures occur, VITAL and ALLFLG are processed 
oeusta we onen RAERED 1s set to .FALSE. and control 
returns to the calling program. If the reading is 


successful, the elements are converted into program 
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standard units by a DO loop for NGOT iterations with the 


Sic cement 
RLARR(I) = RLARR(I)*UNITFM + UNITFA 


Then RAILRED is set to .TRUE. and control returns to the 


Salling program. 
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CHAPTER 5 


THE EXTENDED DEX LIBRARY EDITING ROUTINES 


5.1 General DeScription 

At some point in the operation of a program the 
user may decide that he wants to change the value of one 
or many variables. It may be that the value read as in- 
put 1S incorrect, or he wants to see the effect of changing 
one variable on the output. He may even decide he does 
not like the answer given by his program and, before 
storing it in a database or file, wishes to exchange it 
for another value he has. For whatever reason, the user 
requires the capability to enter the new value at the 
terminal. The editing routines were developed for this 
purpose. 

Currently there are two logical functions in this 
Sacegomy ee ioecEDT and RSCEDT, with a third RAREDT, 
scheduled to be developed for the next version of the 
extended DEX library. ISCEDT allows the editing of 
integer scalar variables, RSCEDT allows the editing of 
real scalars, and RAREDT will allow the changing of 


elements ina real array. 
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Sr. 2 Logical Function ISCEDT 

Dee Calling Sequence. Logical function ISCEDT 
would be invoked by a module subprogram, normally when 
IOFLAG 1S set equal to 2 in a subroutine like MAINPG 
described in Chapter 2. The calling sequence includes 
15 parameters listed here: 

LOGIAL FUNCTION ISCEDT (NEWVAR,ALLFLG, 

MiP Ror, NeEwW , DENAME. 
MENUFPL, MENUNM, NITEMS,)LTEMS, 
PMPREP , PMES, PMORGN, RNF ILE, 
FORMAT, DEFALT) 

For ISCEDT, the first parameter is an output variable, 

ALLFLG is both input and output, and the remainder are 

all input variables. 

NEWVAR will store the new value of the integer 
variable being changed. ALLFLG indicates the status of 
Eeiewcalling program “all” option. Its value may be 
Siancgeds strom .tTRUE. to .FALSE. during the editing 
sequence. 

Logical variable MTERSE indicates the type of mo- 
dule dialogue: terse or verbose. NCPW represents the 
number of characters per word assumed by DEX routines, 
and is dependent upon the particular computer in use 
DBNAME is the 8-character database name of the integer 
sought. 


When MENUFL=.TRUE., the integer being sought is a 


menu selection. The eight-character menu name is stored 
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in MENUNM. NITEMS is the number of menu items, and it 
cannot exceed 12. ITEMS is where the menu choices are 
Stored. Each item is described by an eight-character 
name (including blanks), so that, at four characters per 
word, ITEMS should be dimensioned as 2«NITEMS. 

Since the new integer value will be entered at the 
terminal, a prompting mesSage is required. PMPREP is a 
logical variable which indicates if the program is to 
prepare the message (.TRUE.) or if it is Supplied by the 
calling program (.FALSE.). PMES is where the prompting 
message 1S stored. It can be up to 64 characters long, 
and if less it must include the trim character, "<", at 
its end. If PMPREP=.TRUE., PMES is undefined in ISCEDT. 

PMORGN stores the information describing the vari- 
able in question. It is typically the. database comment. 
PMORGN can be up to 64 characters long and requires the 
trim character if less. Because PMORGN 1s used to pre- 
pare the prompting message when the dialogue is verbose, 
if PMPREP=.FALSE., it need not be defined in ISCEDT. 

RNFILE is the reference number for reading from a 
sequential file uSing Fortran READ and corresponds to 
RNRFIL in the calling program. FORMAT stores the for- 
mat for reading from a file. DEFALT is the default 


value of the integer in question. 
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Sec Omecracion.meine task of ISCEDT is actually 
quite simple. In order to read a new integer from the 
terminal, ISCEDT merely invokes ISCLDR, uSing the vari- 
able EDMODE, which has a value of 2, in place of IMODE. 
ISCLDR then prepares a prompting message, if necessary, 
and calls ISREAD to read the value entered, ISCEDT 1s 
set to the same value with which ISCLDR is returned 
eee. PRUE. fOr success), and control returns to the 
calling program. 

In calling ISCLDR, ISCEDT defines the parameter 
VITAL as .TRUE. in all cases. This stems from the policy 
that if the user wishes to correct a value, he really 
VantswGo correct it for program continuation. Failure 
of any of the integer reading routines would change 
ALLFLG if it was .TRUE. when ISCEDT was invoked. 

It may not be readily apparent to the reader, but 
because the source will always be defined as the terminal 
by ISCEDT, the calling parameters RNFILE, FORMAT and 
DEFALT, used only when IMODE=4 or 5, need not be defined 
here. In fact, dummy variables could have been used. It 
was decided to use the correct variables in the calling 
sequence to avoid potential errors by creating more 
variables. The ones used should already be available in 
the module, being needed for reading and writing integer 


values. 
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See) Logical Function RSCEDT 

5.3.1 Calling parameters. Logical function RSCEDT 
is invoked by the module to permit the editing of a real 
Scalar variable. Its calling sequence is as follows: 

LOGICAL FUNCTION RSCEDT (NEWVAR,ALLFLG, 
MTERSE,NCPW,DBNAME, 
UNITEM, UNITFA, UNITNM, 
Pie eee eeibS Ee MORGN, RNE FEE, 
FORMAT, DEFALT) 
All of the parameters except NEWVAR are input variables, 
and ALLFLG is both an input and output variable. 

Most of these parameters are identical to those 
used in ISCEDT. Three are new. UNITFM and UNITFA are 
respectively the multiplicative and additive conversion 
factors for converting the real scalar read in user i/o 
units to the value NEWVAR in program standard units. 
UNITNM 1S a 12-character version (including blanks) of 
the user input/output units of the variable, and is used 
in preparing the prompting message when PMPREP=.TRUE.. 

5.3.2 Operation. RSCEDT behaves very similarly 
to ISCEDT. It calls RSCLDR with the variable EDMODE, 
defined as 2, in lieu of IMODE (terminal source) and 
VITAL specified as .TRUE.. The real Scalar reading 
routines accept a value entered at the terminal, convert 
it to program standard units and store it in NEWVAR. If 


a failure occurs, ALLFLG changes to .FALSE. if it was 


-TRUE. when RSCEDT was invoked. 
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RSCEDT 1s set to the same value as RSCLDR (.TRUE. 
if NEWVAR is successfully read in, .FALSE. if an error 
qccurred in the reading sequence) and control is re- 
eucned to the calling program. 

One can see that the editing routines are essen- 
tially another version of the reading routines. Current 
plans for the array editor anticipate extending this 
capability to include reorganizing the entries and in- 
serting new values for whichever element or group of 
elements is specified by the user. Further, it is hoped 
that throught the editor, it will be possible to execute 
the calculation subprograms only for those elements 
changed in order to reduce computing costs. It may be 
that these options will be operated by the user by means 
of editing menus also. In short, the goal will be to 
Simulate the editor capability of an interactive system 


such as CMS at MIT. 


S) 





CHAPTER 6 


fit eer aNDED DEX LIBRARY WRITING ROUTINES 


ok General Description 

Once information has been read, edited or computed, 
unless it is to be used as input for computations, it is 
necessary to transmit it to one of three possible desti- 
nations: a DEX-created database, the terminal or a sequen- 
Sreiweute further, for our purposes, a distinction shall 
be made between writing alphanumeric characters on the 
terminal screen via DEX routines and plotting the infor- 
mation on the screen as a graph. In the current version 
of DEX at MIT the plotting option is not yet implemented. 

The function of the extended DEX library writing 
routines, described in this chapter, 1s to permit the 
transmission of the information to the three valid desti- 
tie rons me etent  bogical functions comprise this group of 
routines, and, like the reading routines, they can be 
categorized by either type of variable handled or by 


function. They are listed here by the first method: 


Integer Real Real 

Scalar Scalar Array 

PSeDMP RSCDMP RARDMP 
iLSDSCR RVDSCR 

ILS Sel 20) Ren bie RARITE 


Both the real scalar and real array series share RVDSCR. 
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The top routines, called the "dumpers", serve a 
function similar to that of the loaders of the reading 
routines. They screen out requests to perform plotting, 
call the "descripters", if necessary, to prepare descrip- 
tion messages for identifying the values when writing on 
the terminal, and invoke the "writers" to do the actual 
writing to the destination. 

One general observation concerning the writing 
routines which is best made here is that the concept of 
"essential" variables, which was introduced in the chapter 
on the reading routines, 1S not employed. This affects 
the execution of a calling program all option. The 
premise is that when writing all the values from a menu, 
the failure to write one should not prevent the writing 
of the remainder. The user can go back and analyze why 
the one was not successful without having to rewrite all 
of the variables from the menu. The only case where the 
all option is aborted is where the destination is a data- 
base and no database is found open. Rather than getting 
a string of similar messages announcing this fact, the 


writing sequence is halted. 
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6.2 Integer Scalar Series 
6.2.1  ISCDMP 
ee eee ermine sequence. Logical function 
ISCDMP is the supervisory subroutine for writing integer 
scalar values and is the subroutine which appears in 
module subprograms. The calling sequence contains eleven 
parameters and is listed here: 
LOGICAL FUNCTION ISCDMP (ALLFLG,MTERSE, IOMODE,NCUPW, 
IVAR, DBNAME,DMORGN, 
DMPREP, DMES, RNFILE, FORMAT) 
In accordance with DEX practices, the output variables 
come first in the calling sequence. ALLFLG is both an 
input and output variable for ISCDMP, being defined at 
the invocation and capable of having a different value 
when ISCDMP is returned to the module subprogram. ALLFLG 
contains the information about the calling program all 
option. 

The remaining parameters are exclusively input 
variables from the point of view of ISCDMP. MTERSE indi- 
cates the type of module dialogue. NCAW is the number 
of characters per word assumed by the DEX routines. 
IOMODE corresponds to OMODE in the module calling program 
and represents the destination of the information to be 
written. As a reminder, its values are repeated here: 


IOMODE=1: a DEX-created database 





IOMODE=2: the terminal using DEX routines 
TOMODE=3: the screen using plotting routines 


IOMODE=4: a sequential file using a formatted 
WRITE statement 


IVAR is the integer value which is to be written. 
DBNAME is the 8-character database name of the variable. 
DMORGN is a String of up to 64 characters which describes 
the variables. It is usually the database comment. If 
it has less than 64 characters it must include the trim 
character "<". The routines in this series assume that 
integer variables have no units. 

DMPREP is a logical variable which, if .TRUE., 
means that the description message is to be prepared by 
ISDSCR. In this case, DMES is undefined. DMES is where 
the description message is stored. If the dialogue is 
verbose it can-be up to 64 characters by, whereas if the 
dialogue is terse it will only contain DBNAME. If 
DBPREP=.FALSE., DMES must be provided by the module and 
must include the trim character if it is less than 64 
characters long. 

RNFILE is the file reference number for writing to 
a sequential file. It corresponds to RNWFIL in the 
calling program. FORMAT contains the format to be used 


to write the integer available to the file. 
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See eeeeenateacteristies. ISCDMP first 
checks the destination pointer. If IOMODE=3, the user 
is informed that plotting iS an improper mode of output 
for an integer scalar value and ISCDMP is set to .FALSE. 
Pome erecuRning control to the calling program. 

If ITOMODE=2 and DMPREP=.TRUE., ISCDMP calls ISDSCR 
to prepare the description message for identifying the 
integer when it 1S written to the terminal. When this 
1s successfully accomplished, or when IOMODE=1 or 4, 
ISCDMP invokes ISRITE to actually perform the writing. 

If either ISDSCR or ISRITE is returned .FALSE., 
ISCDMP is also set to .FALSE. and control is returned to 
the calling program. Otherwise, it is set to .TRUE. 
Pater co returning control . 

When invoking ISRITE, a new logical variable, 
peeitecwe ts eintroguced. It is included in anticipation 
of future capabilities of DEX and indicates when a change 
is made to a database value. This will alert the user 
to check other variables which are dependent on the value 
of the integer being written. Currently DBCHNG is 
initialized as .FALSE. in ISCDMP. 

omz.2  PfSDSCR 

Op2e2-) Calling sequence. Logical function 


ISDSCR prepares a description message suitable for 
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identifying the integer available when it is to be written 
on the terminal. Its calling sequence lists the perti-~ 
nent parameters provided by ISCDMP: 

LOGICAL FUNCTION ISDSCR(DMES ,MTERSE ,NCPW,DBNAME, DMORGN) 
The value of logical variable MTERSE dictates whether the 
description message, to be stored in DMES, will be brief 
or long. NCPW is used by the DEX routines which manipu- 
late character strings to produce the message. 

Geeme.2 S@haracteristics. If the dialogue 
is verbose, DMORGN, which contains a string of up to 64 
characters describing the integer variable in question, 
1S inserted into DMES. For terse dialogue, DBNAME is 
copied into the description message. If the insertion 
Poeouleeessitul, Tseeck 1S set to “TRUE. and control re- 
turns to ISCDMP. If not, an error message is issued 
emer lSoDSeGRe 1s relturned .FALSE.. 

Oz. 35 “LORITE 

Spee oeeecalhling Sequence. “Logical function 
ISRITE actually writes the integer available to the 
specified destination. Its calling sequence is as 
follows: 

ReGteADpee UNCTION foRL TE (ALLFLG, DBCHNG,MTERSE, IOMODE, 

NCPW, 


IVAR, DBNAME,DMORGN ,DMES,RNFILE, 
FORMAT) 
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Logical variables ALLFLG and DBCHNG are defined when 
ISRITE is invoked. DBCHNG is always .FALSE., and will 
become .TRUE. if a change is made to the integer variable 
DBNAME in the database. DMES is always defined when 
ISRITE is invoked so DMPREP is no longer needed. DMORGN 
is required because it may be used for comparison with 
the database comment. 

Gy2eo.2 “Characteristics. If the destination 
of the integer available is a database, ISRITE first 
attempts to extract an existing value by DEX routine 
IGET (reference [{5]). If no database is open, ALLFLG 
is changed to .FALSE. if it was not already, with an 
appropriate message being isSued to the user. If the 
variable is defined in the database, and it is different 
from the integer available, both are presented for the 
user's inspection. The user then specifies which is to 
be placed in the database. The new value is inserted by 
DEX routine IPUT (Reference [5]) and DBCHNG becomes 
.TRUE.. If the variable was not defined, the new value 
is automatically inserted. Once this is accomplished, 
the database comment is compared to DMORGN and, if dif- 
ferent, they are presented for the user's inspection. 
Again, he specifies which is to be the final database 


comment. 
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When writing to the terminal, an output message 
1s created from DMES, the string " = " and the integer 
value. The entire message is then printed by DEX 
routine MESOUT. 

If IOMODE=3, the user is informed that plotting is 
an improper mode of output for an integer scalar. In 
this case, and other cases where the writing is unsuc- 
@Gesctum, lom=le 1S returned .FALSE. to the calling 
program. Otherwise it is set to .TRUE. prior to re- 


GumMing COntrol’. 


63 Real Scalar Series 
Gc ae RSCDMP 
pore eee aree i ne Sequence. RSCDMP is the 
Subprogram that normally appears in the module for 
writing a real scalar value to the designated source. 
Its calling sequence includes 14 parameters: 
LOGICAL FUNCTION RSCDMP (ALLFLG ,MTERSE, IOMODE,NCPW, 
RVAR,DBNAME,UNITFM,UNITFA, 
UNITNM, 
DMPREP ,DMES , DMORGN,RNFIL, 
FORMAT) 
All of these parameters are input variables with respect 
to RSCDMP except ALLFLG, whose value may be changed 
during the writing sequence. RVAR stores the value of 


the real scalar available to be written. UNITFM and 


UNITFA are respectively the multiplicative and additive 
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conversion factors for converting the real value in 
PeeGadiestandara Units CO input/output units prior to 

the writing. UNITNM is a l2-character version (including 
blanks) of the input/output unit name. DMPREP indicates 
if the description message, DMES, is to be prepared by 
RVDSCR. 

DBNAME is an 8-character name of the real scalar 
and DMORGN is a string of up to 64 characters which 
identifies the variable. If the variable is dimensioned, 
DMORGN contains the string "(?????72?72272?72??)", referred to 
as UNITPT, into which UNITNM will be inserted. DMORGN 
must include the trim character if it is less than 64 
characters long. RNFILE, corresponding to RNWFIL of the 
module calling program, is the file writing device number. 
FORMAT contains the format for writing to a file with a 
formatting Fortram WRITE statement. 

6.3.1.2 Characteristics. RSCDMP has three 
tasks: to screen out requests to plot a real scalar, to 
call RVDSCR if DMPREP=.TRUE. and IOMODE=2, and to call 
Rolo ecommpeLteornm the actual writing. If IOMODE=3, 
RSCDMP issues a message informing the user that this is 
Wommoos= Horeca tn this case, Of 1£ elther RSDSCR or RSRITE 
are returned .FALSE., RSCDMP is set to .FALSE. and con- 


trol is returned to the calling program. If the called 
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functions are returned .TRUE., RSCDMP is also set to 
mURUE.. bertOre returning control to the calling program. 
imeivuemwing Logical function RSRITE, the logical 
variable DBCHNG is introduced. It is initialized in 
RSCDMP as .FALSE.. If, when executing RSRITE the vari- 
able value is changed in the database, DBCHNG is returned 
to RSCDMP as .TRUE.. In future versions of DEX, RSCDMP 
will pass the value of DBCHNG back to the calling program 
to alert the user to check other variables which are 
dependent on RVAR. 
Gas . 2 OSCR 
6.3.2.1 Calling sequence. In the same man- 
ner as RVAPMP, RVDSCR is Shared by both the real scalar 
and real array series. Its function is to prepare a 
description message suitable for identifying the values 
being written on the terminal. It is invoked by either 
RSCDMP or RARDMP using the following calling sequence: 


LOGICAL FUNCTION RVDSCR (DMES ,MTERSE,NCPW,DBNAME, 
DMORGN, UNITNM) 


DMES is undefined when RVDSCR is invoked. The other 
parameters are all input variables from this function's 
point of view. They have all been described in either 


Sacpmomroe..).l or 6.3.1.1. 
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eee Cc haracteristics, ff thesmodule 
dialogue is verbose (MTERSE=.FALSE.), the description 
message 1s formed by copying DMORGN into DMES. If the 
real scalar being written has units, RVDSCR inserts the 
i—-character unit name UNITNM into the string UNITPT, 
Gee 22227272277)", which is now in DMES by virtue of 
having been in DMORGN. If the dialogue is terse, then 
RVDSCR copies DBNAME into DMES. It then scans DMORGN 
Pome EP i andett Tt £Linds it, copies UNITPT into DMES 
following DBNAME and replaces the question marks with 
UNITNM. If DMES 1s successfully prepared, RVDSCR is 
returned .TRUE.. Otherwise it issues an error message, 
Pomscemecoum Aloh., ana returns control to the calling 
program (either RSCDMP or RARDMP). 

boos Y) RSRIPTE 

oma. 3. Calling sequence. Logical function 
RSRITE is used to write a real scalar to the valid 
specified destination. Its calling sequence is as 
follows: 

LOGICAL FUNCTION RSRITE (ALLFLG, DBCHNG,MTERSE, IOMODE,NCPW, 
Rak, DENahEt, UNETEM, UNITY A, UNLINM, 
DMORGN, DMES, RNFILE, FORMAT) 

This is similar to RSCDMP with three exceptions. DBCHNG 
is a logical variable which is always .FALSE. when RSRITE 


is invoked. DMPREP is no longer needed Since in all 
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cases DMES is now defined. DMORGN is still requried 
because it will be compared with the database comment. 
Grom eechabractecristics. RSRITE first 
converts the real scalar value from program standard 
units to user input/output units, stored in variable 
TVAR, by the statment: 
TVAR = (RVAR-UNITFA) /UNITFM 

If IOMODE=1l, the database is first checked to see 
if a value in question already exists. If the database 
1s found closed, RSRITE alerts the user and changes 
ALLFLG to .FALSE. if it was not already so. If the 
variable does not exist in the database, it 1s inserted 
using DBNAME, TVAR and DMORGN (corrected for units if 
applicable) as its name, value and database comment. 

If the variable exists but is not a real scalar, RSRITE 
informs the ie and iS set to .FALSE.., 

If the variable exists and is defined, its value 
1s compared to TVAR and the user 1s presented with both 
if there is a difference. He then is asked which value 
he wants in the database and the chosen one is written 
(or left) in. RSRITE then compares the existing data- 
base comment to the one specified by DMORGN and writes 
them both for the user's inspection if they are dif- 


ferent. The user then specifies which one is to be the 
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database comment. This step 1S crucial in insuring that 
the correct units for TVAR exist in the database comment. 
When writing to the terminal, an output message is 
Senseructed using DMES, the string " = " and the real 
value. This message is then printed by DEX routine 
MESOUT. 
If IOMODE=3 despite the previous checks, the user 
is informed that a plot cannot be used for writing a 
real scalar value, and RSRITE is returned .FALSE. 
RSRITE is set to .FALSE. in all cases where the real 
value is not successfully written and control is then 
returned to the calling program. Otherwise it 1s 


returned .TRUE. to RSCDMP. 


6.4 Real Array Series 
6.4.1 RARDMP 
6.4.1.1 Calling sequence. Logical function 

RARDMP is used in the module subprogram for writing a 
real array. It has the same three functions as RSCDMP 
and ISCDMP: to screen out requests to plot graphs, to 
call RVDSCR if needed to prepare a description message, 
MMiemeoucaiimnRare Eh PE EQ actually do the writing. It has 


the following calling sequence: 
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LOGICAL FUNCTION RARDMP (ALLFLG,MTERSE,IOMODE,NCPW, 
RIARR, DBNAME ,NFROM,NTO, 
UNITEFM,UNITFA, 
UNITNM, DMPREP,DMES,DMORGN, 
RNF ILE, FORMAT) 

A few new parameters deserve explanation. RI1ARR 
Stores the array elements, in program standard units if 
they have dimensions. The array corresponding to RI1ARR 
in the module should be dimensioned as large as the 
value MXTOGT used in RALLDR for reading the ar@gay. 

NFROM represents the position in the array at which 
writing commences. It should always have a value of l, 
specified in the module calling program, except possibly 
when writing to the terminal. If the user is in the 
"editing" versus the "writing" mode of operation, he may 
desire to write only part of an array on the terminal. 

In this case the editing routine specifies NFROM to be 
Peele rronel tO NiO inclusive prior to invoking RARDMP. 
NFROM should be 1 when writing the array on the terminal 
Whemenet in the “editing” mode. 

NOT represents the number of elements to be written 
in all cases but one. This exception occurs when writing 
to the terminal in "editing" mode, when NTO indicates the 
last element in the array to be written. Other than 


this case, NTO corresponds to the value NGOT obtained 


when reading the array with the reading routines (l.e., 
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the actual number of elements read into the array repre- 
sented by RIARR), and may be less than MXTOGT. 

The other parameters in the calling sequence are 
the same as those in RSCDMP. 

6.4.1.2 Characteristics. If IOMODE=2 and 
DMPREP=.TRUE., RARDMP invokes RVDSCR to prepare a 
description message suitable for identifying the array 
beG@iemwitecete ro tie terminal. If RVDSCR is successful, 
and for IOMODE=1 and 4, RARDMP invokes RARITE with the 
Seceemton 
LOGVAL=RARITE (ALLFLG, DBCHNG, MTERSE, IOMODE,NCPW, 
RLARR, DBNAME,NFROM,NTO,UNITFM,UNITEFA, 
UNITNM, 
DMORGN , DMES, RNF ILE, FORMAT) 

Dero everatom OL DEX, DBCHNG 1s initialized .FALSE. 
in RARDMP. If a change is made to a database array by 
RARITE it will be changed to .TRUE.. In future versions 
RARDMP will pass the value of DBCHNG back to the user 
via its calling sequence, to alert the user who may wish 
to verify other variables dependent upon this array. 

T£ IOMODE=3, RARDMP informs the user that it cannot 
be used to write a real array. In this case, or if 
RVDSCR or RARITE is returned .FALSE., RARDMP 1S set to 
Af siertorete GFeturentng control to the calling program. 
If the two called functions are successful, RARAMP is 


Sauls Set “tOu. TRUE.. 
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Sp SCeeenonith. Since the calling sequence for 
RARITE has been described above, this section will only 
discuss RARITE's characteristics. The task of this 
logical function is to write the real array elements 
available to the proper specified destination. The first 
action it takes is to convert the elements in program 
standard units to input/output units and store them in 
a temporary array. This 1s done with a DO loop from 
NFROM to NTO and the statement 

RTARR(I) = (RIARR(I)-UNITFA) /UNITFM 
The elements in RTARR are in the units described by 
OMe. . 

Tf the destination is a database (IOMODE=1), it is 
desired to compare the existing array with the new one. 
RARITE first attempts to extract the existing array and 
store it in a working array RXARR uSing DEX routine AGET 
by the calling sequence 

LOGVAL=AGET (DBNAME , RXARR, NTO, NSTORD, RCODE) 

There are six possible result codes returned by AGET. 

If RCODE=8, AGET was completely successful in that the 
number of elements stored in the database array (NSTORD) 
is equal to the number requested (NTO), which is also 
the number of new elements to be stored. If RCODE=1, 
the database was not open. This will cause ALLFLG to 
change to .FALSE. if it was not already, aborting the 


calling program all option. 
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If DBNAME does not exist in the database (RCODE=2), 
it is created with DEX function DBVINS, and RTARR is 
stored in it. RTARR is also immediately stored if the 
array DBNAME exists but has no datum stored in it (RCODE= 
4). If DBNAME is not a real array (RCODE=3), the user 
is informed. 

The final two result codes are more diabolical. 

If the number of elements stored in the database array 
is less than the number requested by AGET (RCODE=5), the 
elements that do exist, plus zeros up to NTO elements, 
are stored in RXARR. The user is advised that this has 
occured, that comparison of the existing values in 

RXARR and the new values in RTARR can be accomplished, 
but that the new values cannot be stored if the user 
decides they are the ones desired. This 1S because the 
storing of an array is performed by DEX routine APUT via 
the statement 

LOGVAL=APUT (DBNAME, RTARR, NTO, NSTORD, RCODE) 

Unless NTO=NSTORD, the storing will not occur. All is 
not lost, however! The user can proceed back to the 
module calling program, exit to the DEX level via the 
"S$" command and delete the array with the DEX editing 
capability. He can then return to the module and write 


the array into the database when AGET returns RCODE=2. 
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The other problem occurs when the number requested 
is less than the number stored (RCODE=6). In this case 
NTO elements are stored in RXARR for comparison, but for 
the same reason as above, the user is advised that storing 
the new values will not be possible. 

Once RXARR is established (RCODE=90, 5 or 6), a 
comparison between its elements and those of RTARR is 
Senaweceaom ime Criteria for difference is Typ(Reloyy 
The user is informed of how many differences were found 
and asked if an inspection of all the values is desired. 
A partial review is not possible. If the user responds 
affirmatively, the values are listed. UNITNM is printed 
in the heading. RARITE then asks the user to specify 
waLeh group of values (all old or all new) is desired. 
If the user chooses to insert the new values, DBCHNG 
1s set to .TRUE. and APUT is called to store the values. 
Error messages will be issued if NTO does not equal 
NoLORD. 

EP=Bene weltang 1S Successful, or if the old values 
are retained, RARITE proceeds to compare the database 
comment to DMORGN, corrected for units, if applicable. 
When not the same, it prints both and asks the user to 
decide which is correct, storing the one chosen as the 
database comment. If there was no comment already in 


the database, DMORGN is automatically inserted. 
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When the destination is the database, the writing 
is considered successful only when all the new values 
are successfully stored or the old values retained. All 
the other possibilities result in RARITE being returned 
fo ReaRDMP aS .FALSE.. 

If IOMODE=2, the description message, DMES, is 
printed on the terminal, and then the array is listed 
from position NFROM to NTO. If IOMODE=3, the user is 
informed that plotting the array cannot be accomplished 
SpeweneAR Ties SGtetO .FALSE... 

When IOMODE=4, the array is written to a sequential 
file by a DO loop from 1 to NTO with the statement 

WRITE (RNFILE,FORMAT) eh leRR (1), tly NTO) 

In the cases where the writing is successful RARITE 

BeowoSe comer RUE. ana Control is returned to the calling 


program. 
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CEAPTER 7 


ieee le NPE Os DEX EEBRARY UNIT ROUTINES 


7.1 General Description 

The module author will invariably write the compu- 
tational subprograms of the module in the unit system 
wEeem which he 1s most familiar. Frequently, it is not 
the system that the user of the module prefers. The 
tenet of the DEX philosophy to make modules convenient 
to use dictated that this problem be addressed. The 
result was the development of a group of subprograms in 
the extended DEX library which allow the user to choose 
from a reasonable selection, the units for input and 
output purposes for five basic types of measurement, 
plane angle, force, length, temperature, and time - 
and combinations thereof. 

The twenty-two extended DEX library unit routines 
can be divided into three categories: 

(1) Five subroutines which enable the 
user to choose from the options 
available the preferred input/output 
Cale) Biel ee 

(11) Five logical functions which enable 
the module to obtain conversion 
factors which convert the five basic 
user-specified (i/o) units into the 
program standard units (p.s.u.) and 


to obtain the unit names of the i/o 
units for use 1n prompting and des- 
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cription messages on the terminal and 
database comments. 


(111) Twelve logical functions which enable 
the module to obtain the conversion 
factors and unit names or special 
names for combinations of the basic 
Wnt Se 


This chapter will examine each category. 


meee, The 17/0 Unit Specifiers 

(eee Ge Nema Peseription. The extended DEX 
library includes five subroutines which enable the user 
to read, edit, or write the five basic units he wishes 


to use for input and output. These are listed here: 


AUNIT (plane angle) 
FUNIT (force) 

LUNIT (length) 
TPUNIT (temperature) 
TUNIT (time) 


+> 


The user must choose from the units offered by the 
particular subroutine menu options. These choices were 
included in anticipation of the possible needs of most 
users. Table 7-1 lists the choices available. 

722.2 Characteristics of a Typical Subroutine. 
In execution, the five subroutines simply call ISCLDR 
tomleacmenceinpwe/OuEDUE Unit indicator, ISCEDT to edit 
the i/o unit indicator, or ISCDMP to write the i/o unit 
indicator. Because all five subroutines are structured 


identically, only one, AUNIT, will be described in detail. 
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Its calling sequence is listed here: 


SUBROUTINE AUNIT (UIOAUN,CALALL, IOFLAG, IOMODE, 
MTERSE, DBAUNN,DBAUNC,PMPREP, 
PMES , RNFILE,AUNFRM, DEFAUN) 


The calling sequences for the others are similar. 

Table 7-2 lists the comparable distinctive parameters. 
UIOAUN denotes the i/o angle unit and can be 

either an output variable (when reading or editing) or 

an input variable (when writing). It has the following 

integer values depending on the specific i/o angle unit: 

cycle 

radian 

degree (angular) 


minute (angular) 
second (angular) 


1 & Ww NF 


CALALL is a logical variable which indicates the status 
of the calling program "all" option. Recall from the 
Cube Module that subroutine MXUNIT was the calling pro- 
gram for this series. IOFLAG indicates whether the 
operation is reading, editing, or writing (IOFLAG = l, 
2, or 3 respectively) and dictates whether ISCLDR, 
ISCEDT or ISCDMP will be invoked. IOMODE indicates 
the source when reading and the destination when 
writing. MTERSE, NCPW, PMPREP, PMES, and RNFILE ful- 
fill the same roles as described in previous chapters. 
DBAUNN is where the database name of the angle 


unit, “UIOAUN", is stored. DBAUNC is a character 
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Table 7-2. 1/0 Unit Specifier Subroutine Calling Parameters 












Subroutine 


_uroreu | vrorun 
[ite format [AUNeRa | Funrm | coweRe | rPurRH | TNFR 





Table 7-3. Basic Unit Series Calling Parameters 
















Subroutine 


AUNIT FUNIT LUNIT PEs. Ul Lag | curt 
CONVA CONVF CONVL Civ cet) CONVT 
CNVTPA 


|One letter abbrev. | | | NPL 
[two letter abbrev. |_| namro2 | namno2 | | NAMTO2_ 


Tahzee letter abbr. [sawmos[vawroo| |_| NaN03_ 
ise sstnes seerey ee 


[six letter abbrev. [wawnoe| [wamaos |__| nano 
Bight letter abbr. { wawaos | ____{___ ars 


Program standard PSTAUN | PSTFUN | PSTLUN ee ss 
MnLec indicator 


moun seeincuacator | JIOAUN | ULOFUN | UIOLUN | UIOTPU |; ULOTUN 


Parameter 





@enversion factor 
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See ingewiwen Laentikies the angle unit variable. It 
1s used as the database comment and in the preparation 
of the prompting and description messages. AUNFRM is 
the format to be used if the angle unit indicator is 
to be read from or written to a sequential file. 
DEFAUN is the default value of the angle unit indicator 
if that is chosen as the source. 

In operation, AUNIT branches depending on the 
value of IOFPLAG and calls ISCLDR, ISCEDT, and ISCDMP. 
When the user wishes to read the angle unit, AUNIT 
provides menu "ANG.UNIT" with its five choices to 
ISCLDR. This is an example of when a menu is used to 
input an integer value. The reader should understand 
that 1S is not the name of the unit which 1s read or 
written by these subroutines, but.rather an integer 


value which denotes the i/o unit to be used. 


7.3 The Basic Unit Series 

7.3.1 Series Description. Since the module 
author knows and provides indicators for the units in 
which he has written his program, once the user 
specifies the units he wishes to use during input and 
output, it is possible to determine the conversion 


HIGwems OG sselotingethe 1/O,units. to the,program 


Pel? 





standard units. These conversion factors can then be 
passed on to the loaders when reading variables: (real 
scalars or arrays) to convert their values in i/o units 
to p.s.u. for the module computing subprograms. Sim- 
ilarly, these factors can be passed on to the dumpers 
when writing variables to convert their values in 
p.s.u. to ifo units. The determination of the conver- 
Sion factors for the five basic types of units is 
accomplished by five logical functions listed here: 

UNITAF (angle units) 

UVETEE (force units) 

UNGTLP (length units) 

UNITMP (temperature units) 

UNITTF (time units) 
These functions accomplish one other task: they pre- 
pare various alphabetic character versions of the in- 
put/foutput unit names, up to twelve characters long, 
which are used in database comments and prompting and 
description messages. This is explained further below. 

7.3.2 Calling Parameters. Once again, because 

all five subroutines are essentially structured the 
same, only one, UNITFF, will be described in detail. 
The calling sequence for UNITFF, as it would appear in 
a module subprogram for reading, editing, or writing 


input/output variables, is as follows: 


LOGVAL=UNITFF (CONVF ,NAMF@2 ,NAMF@3,NAMF12, 





ALLFLG, PSTFUN, UIOFUN,NCPW) 


The sequence 1S similar for all five functions with two 
exceptions. The number of versions of the unit names 
for some is different and UNITMP includes two conver- 
sion factors instead of one. Table 7-3 lists the com- 
parable calling parameters for the five functions. 

The first four calling parameters are defined by 
UNITFF and the four are input variables to the function. 
CONVF is the multiplicative conversion factor which 
partially converts the force values from i/o units to 
p.s.u. when reading or editing and does the reverse 
when writing. The conversion also requires an additive 
conversion factor which, in all cases except with 
temperature units, 1s equal to zero and is provided to 
the loader, editor, or dumper by the module. The con- 
version that takes place in the reading routines is of 
the form: 


VARIABLE (p.s.u.)=VARIABLE(1/o unit) *UNITFM+UNITFA 


where UNITFM is the multiplicative conversion factor 
determined by one of these functions and UNITFA is the 
edditmve comvyersion factor. 

NAMF@2, NAMF@3, and NAMF12 are respectively two-, 


three-, and twelve- character abbreviations of the 
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force unit used during input and output. NAMF12 is 
used as UNITNM in prompting and description messages 
and database comments for force variables (recall that 
UNITNM must be a twelve character version of the rele- 
vant unit). Tables B-l through B-5 in Appendix B list 
the various abbreviations of the five basic units. 

PSTFUN and UIOFUN denote the program standard 
force unit and the input/output force unit respectively. 
Beeyecaiecach be dn Integer between | and 7 inclusive, 
corresponding to the seven permissible force units 
listed in Table 7-l. 

Gees execution. When invoked, UNITFF calls 
routine CHKRNG to verify that PSTFUN and UIOFUN are 
within the permissible range 1-7. UNITFF then uses 
the pair (PSTFUN, UIOFUN) as an index to a data table 
included within the function to locate the conversion 
factor appropriate for converting an input value in 
the ifo force unit denoted by UIOFUN to the program 
standard force unit denoted by PSTFUN. 

UIOFUN is also used as an index to another data 
table in the function which contains the various 
abbreviations of the seven force units. UNITFF employs 
DEX routine LMOVEC to copy the characters from the data 


table into the strings NAMF®%2, NAMF@3, and NAMF12. 
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Tf a failure occurs in defining either the force 
unit conversion factor or the unit name, the user is 
informed that the appropriate variable has not been 
defined, is essential for i/o continuation, and must be 
corrected before continuing. ALLFLG is changed to 
.FALSE. 1f it was .TRUE. and UNITFF is set to .FALSE.. 
If successful in accomplishing both tasks it is set to 


- TUS IUN Ey eee 


7.4 Derived I/O Unit Series 

7.4.1 Series Description. The third series in 
the units category contains twelve logical functions 
for defining conversion factors and unit names for 
units of measurement formed by combining basic units. 
-Tnese are listed in Table 7-4. 

In order to operate these functions, the module 
author must first have either specified or allowed the 
user to specify the basic i/o units which are building 
blocks for these derived unit functions. The module 
program must then have used the appropriate basic unit 
series function or functions to obtain the various 
multiplicative conversion factors and abbreviations. 
These are then used as calling parameters for the 


PSlemecdeinm cs 1m this series. 
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Function 


UAACC 
UACCEL 
UAREA 
BEREQO 
UKYV ESC 
UMASS 
UMPOWR 
UPRESS 
BE SeEC 
URHO 
USPEED 
UVOL 


Table 7-4. Derived I/O Unit Series 


Type of Measurement 


angular acceleration 
linear acceleration 
area 

frequency 

kinematic viscosity 
mass 

mechanical power 
pressure 

power spectrum 

mass density 

speed 


volume 


ZZ 


Units of Measurement 


plane angle/ (time) “ 
length/ (time) 7 
Memenie 

plane angle/time 
(length) */time 
force-(time) 4/length 
force-length/time 
force/ (length) “ 
(length) *-time 

oe eee lence 
length/time 
(length) > 





There is considerably more diversity in the call- 
ing sequences of the twelve functions. Appendix B, 
Table B-6, lists them for reference. In these functions 
only multiplicative conversion factors are used to 
determine the combined conversion factors because none 
involve temperature units. It should, therefore, be 
easy to identify CONVA, CONVF, CONVL, and CONVT as the 
angular, force, length, and time multiplicative con- 
WVemslOon Eaetoms. Ine abbreviations of the basic units 
used in the calling sequences were shown in Tables B-1l 
ehrough B-5Se 

One of the functions, UPRESS, will be described 
in more detail as an example of how they operate. 

7.4.2 UPRESS Calling Parameters. UPRESS allows 
Mecmicercetomdetine the unit Conversion factor and name 
for a variable that has the units of pressure (force/ 
area). The calling sequence for UPRESS is as follows: 

LOGICAL FUNCTION UPRESS(UFPRESS,UNPRESS ,ALLFLG, 
CONVF ,CONVL, NAMF@3, 
NAMF@2,NCPW) 
The pressure conversion factor UFPRESS converts the 
input/output pressure unit to the program standard 
pressure unit by multiplication when reading or editing 
and converts the p.s. pressure unit to i/o pressure 


unit when writing by division. The unit name UNPRES 
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is used to identify the units of the variable in 
question for messages and the database comment. UNPRES 
is a twelve-character string (including blanks). 
Pinos LGeimeacates the calling program "all" option. 
NAMF®@3 1s a three-character force unit abbreviation and 
NAML@2 is a two-character length unit abbreviation. 

(eo UPR oS Soerations UPRESS first defines the 
pressure unit conversion factor by the statement 

UFPRES = CONVE/CONVL**2 

In order to form the pressure unit name, UPRESS 

defines a twelve-character dummy name variable UXPRES 


printed here: 


UPRESS inserts, via DEX routine LMOVEC, NAMF@3 into 
the first three blank Spaces and NAML@2 into the fifth 
and sixth spaces. The three "words" (four characters 
per word) of UXPRES are then set equal to the three 
words of UNPRES. As an example, if the force unit was 
poundforce and the length unit was inches, the final 
version Of UNPRES would be 
Peer iN *2 a 

If a failure occurs in preparing the unit name, a 

message advises the user and informs him that the problem 


must be corrected, because it is essential for input/ 


124 





output continuation. If ALLFLG was .TRUE. it is set 
equdes te .FAbSE. and the user is informed that the "all" 
Option is aborted. UPRESS is then set equal to .FALSE. 
If it is successful, UPRESS is set equal to .TRUE.. 

Certain combinations of basic units have special 
universally recognized names used to identity the 
measurement unit. Where possible, the logical functions 
provide these names rather than creating a name by its 
contituents, such as UNPRES was formed in the above 
example. Table 7-5 lists these special names. 

Although there are only twelve types of measure- 
ments listed the derived unit series have more versatil- 
ity than first meets the eye. They can be used for 
units that have different names but the same basic units. 
For example, UPRESS can be used for stress units as 
well as pressure. In addition, they can be used for 
units that have different basic units but the same for- 
mat. An example is provided by UAACC and UACCEL, which 
could be used for any unit type requiring one basic 
unit in the numerator and a basic unit squared in the 
denominator. The module author must be careful to 
supply the correct special parameters in the function 


calling sequence in the module calling subprogram. 


LAS 





€=NNLOIN pue py=NNTIOIN anoy/* Tu *3neu Aer ddddsn 


T=NO.LOIN 

pue L=NNTOIN pue 9=NNAOIN pcan a O lata! oa ee OHUN 
T=NOLOIN 

pue Z=NNIOIN pue Z=NN4AOIN oy ale ee a OHUN 
T=NOLOIN 

pue L=NNTOIN pue 9=NN4A0IN das /1979wW-U0I MOU 37em YUMOdWN 
T=NOLOIN 

pue L=NNTOIN pue 9=NNAOIN Ae U SO] soU wer boT Ty SSVWN 
T=NO.LOIN 

pue Z=NNIOIN pue Z=NNAOIN ane ites h CI bnTs SSVWN 

T=NOLOIN pue 9=NNTIOIN Bue 2S Aas a 2° 9YORS JSTANN 

T=NONLOIN pue T=NNVOIN puosas /atToAo Z319Y OavAN 

JoOUaANDIO butueop aUeN Tetoods uoT oun J 


SoweN 3TUQ TeTOedS °G-/ OTQeL 


126 





CHAPTER «6 


Poy SEbOGEMENT SOPs? CRUESER-DESTROYER DATABANK AT M.I.T. 


8.1 Considerations in Database Design 

8.1.1 Function. When designing a database, the 
developer must not only consider for what immediate 
function it is intended, but must also try and anticipate 
other future demands and organize it accordingly. One 
solution to this problem, in a sense an avoidance of it, 
is to create very specialized databases containing in- 
formation about only one aspect of the overall project 
involved. The project has a databank comprised of many 
databases. Physical limitations on the database size, 
such as the limit of 200 variables in a DEX-created 
database, suggest this practice. These smaller data- 
bases may be more efficient from the point of view of 
computer costs when it comes to manipulating them. How- 
ever, the situation can arise where a computer program 
requires as input data from several different databases, 
entailing the time consuming effort of opening and 
closing them all. Only experience in using the data- 
bases can reveal the deficiencies in their design. 

The function of the cruiser-destroyer databases 


developed and/or envisioned in the Department of Ocean 
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EG@@aumeering at MIT is to support the naval architect 
during the concept and preliminary design phases of a 
ship design. During these phases a variety of products 
are developed, including the overall vessel dimensions 
and hull definition, hydrostatic and Bonjean curves, 
weight and volume estimates, longitudinal weight distri- 
bution, propulsion and electrical powering requirements, 
transverse stability and floodable length checks and 
general arrangements. The tasks to produce several of 
these, notably the determination of ship dimensions, 
weight and volume estimates, powering requirements and 
transverse stability, can be accomplished with the aid 
of a computer synthesis model. The REED Model [6] used 
at MIT is an excellent example of this design tool, and 
it was the anticipated support of that model that 
strongly influenced the databases designed in this in- 
vestigation. The naval architect who chooses to use a 
synthesis model must carefully determine his input 1f 
he desires to use the model efficiently. Being able to 
draw upon a supply of existing ship information is in- 
valuable to this effort, and this was one of the reasons 
for developing the cruiser-destroyer databases. 

An effective database 1s one that can be shared by 


many different engineers involved in the ship design 
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project, each of whom has a different task to perform. 
Data should be stored ina form that allows each one to 
extract the information required and use it directly 
without having to pass it through some form of inter- 
pretation process. An example is a table of offsets 
database. Ideally, it contains sufficient offsets pro- 
perly organized such that each one of the programs for 
hydrostatics, Bonjean curves, cross curves of stability, 
floodable length, structures and seakeeping can directly 
access it and obtain the input required without having 
Eomgdo,chbougn ae black box” interface program. 

The development of a comprehensive computer-aided 
ship design system that ensures such program/database 
design reguires a "top down" approach to the problem, 

Pome csemimccmimmrenerence {7}. One Starts with the 
overall objective and works down through functional 
specifications to complete system design. If success- 
Mee wacecoOnolrsied, as a result of strict discipline 
during the process, no unnecessary capabilities need be 
developed along the way. One proceeds from each level 
to the next lower by answering the question of how to 
provide for the needs of the higher one. This contrasts 
directly with the traditional method of many individuals 


Tae oGegiams Tor their specific task, and only after- 
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wards determining if these programs can be integrated 
for some higher objective. 

881.2 Types of Databases. Accepting the concept 
of a bank of databases to describe a ship, either exist- 
ing Or being designed, we can list the types which will 
be useful: 


General description 

Weights and centers of gravity 
Longitudinal weight distribution 
Volumes, areas, and centroids 

Offsets 

PQUboment sbecitications and locations 
Power-speed data 

Seakeeping data 

Internal arrangements 

Topside arrangements 


Owo ONIN WN & WwW NF 


t 


Pitsebtsters Similar to that of the computer-aided 
ship design system implemented in the Ship Department 
Gf iewericisn Ministry of Defense [8]. 

Storing in a computer databank several of these 
databases for many classes of ship is extremely helpful 
as a research resource during the concept design of a 
new vessel. Taking this one step further, as described 
in reference [8], 1s to establish "base" ship databanks 
made up of all of the database types. If a new vessel 
is similar to one of these, a copy of the databank pro- 
vides an excellent starting point to begin defining the 


new design and can save much redundant work. This is 
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predicated on the assumption that all the databases of 
pmetecteular type fon all ships are identical in struc- 
Pim matdeadtitecmmomly sin content. Such a practice is 


essential to the efficient use of the databanks. 


8.2 Organization of the MIT Cruiser-Destroyer Databases 
8.2.1 General Databases. During this investigation 
work was conducted to establish the first two types of 
databases listed in Section 8.1.2 for eleven classes of 
U.S. cruisers, destroyers, and frigates. These classes 


are as follows: 


Ee STL Deas 3 | CG-16 
EE ane PP Jes CG=26 
PEG = DPG>2 CG-47 
FEFG-7 DDG-40 


This section will describe the organization of the gen- 
eral databases and the next section will describe the 
weights and centers of gravity databases. 

The general databases are so named because they 
provide a general and not-too-detailed description of 
the ship class which would be useful to a researcher 
seeking to determine first estimates for a new design. 
The information was gleaned from various sources in the 
open literature, and the respective weight and moment 


reports and booklets of general plans [{9,10,11,12]. 
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The database contains eight categories of variables. 
These are: 


Hivm@erehiatracteristics 

Propulsion and powering 

Transverse and directional stability 
Weapons payload 

DlceeronLles, fice control, and sensors 
Avoaaren Capability 

Complement 

Gross mass properties 
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Appendix C is an example of a general database. The 
individual entries are what would appear if one issued 
the "dump" command from the DEX level with a particular 
database open. The order of the listing would not be as 
they appear here because of a "hashing" function built 
into the DEX which distributes entries to a database in 
the memory randomly in order to store them more effi- 
Seimei . 

There are actually 78 variables, listed in Table 8-1 
which constitute the eight categories. Each one has a 
number assigned on the left hand margin. These serve 
as a convenient indicator for the creation of Fortran 
names for the various variables associated with each 
element used in a DEX program. For example, in the 
module MACHWT described later in this chapter, the pro- 
gram names for the default value and comment statement 


for propulsion plant type (Item #20) are DEF2@ and 
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CMNT2@ respectively. 

In each category some space has been left for 
additional variables. Further, experience with the 
databases may indicate that some items are not needed 
and can be deleted. 

An inspection of both Table 8-1 and Appendix C 
reveals that certain items referring to the types of 
plant or type of equipment have integer values where one 
would expect a name. The reason for this is because 
only three types of variables are allowed in the DEX: 
integer scalar, real scalar, and real array. Alpha- 
numeric words in the "value" part of a database entry 
are not allowed. A code of integer values was needed to 
sOlve this dilemma, and it was deciced to adopt the pay- 
load shopping list of the REED model because of its 
comprehensiveness andits widespread use at MIT. Appen- 
dix D contains the payload list from reference [6], with 
some additional items included for this application. 

The restriction on arrays that they contain only 
real values poses a minor problem because they sometimes 
contain information from the code which should be stored 
as an integer. It should be obvious to the user from 
the array name that an integer value is implied. Arrays 


are used in some not very obvious cases in order to 


shay 





accommodate the most information. An explanation of the 
array variables should prove helpful. 

TYPMATL has two entries to distinguish between the 
type of material for the hull and the type of material 
for the superstructure. The integer values are l for 
steel and 2 for aluminum. 

The type of sonar carried (TYPSONAR) is an array 
because some ships have two systems installed: a bow 
or keel-mounted sonar, plus a towed array or variable 
depth sonar. 

NGUNS and TYPGUNS are three element arrays to 
accommodate the most number of distinguishable gun 
mounts in any of the classes, which exists on the 
DD-931 class. Not only does this destroyer carry two 
Calibers, 5" and 3", but the REED payload code allows 
the distinction between a 5" gun mounted on the main- 
Seer Jo) anadea 5 = gun mounted on the 01 level (94). 

The emergency or secondary electrical plant in- 
cludes three array variables: EMETYP, NEMG, and KWPEMG. 
The CG-26 class cruiser has both a gas turbine-driven 
and diesel-driven emergency generator. Therefore, the 
first entries of the three arrays describes the one and 
the second entries describe the other. 


Unfortunately, a great amount of the data available 
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from the various sources for the general database was 
conflicting. Where such descrepancies occurred, this 
investigator made choices based upon the most original 
source, or the value upon which the most sources agreed. 
Whenever possible, the original ship equipment is listed 
in order to correspond to the weights and centers of 
gravity databases, whose information comes from the 
Original class weight and moment reports. 

Any value that was either classified or unavailable 
was left undefined. 

8.2.2 Mass Properties Databases. The general 
databases include a gross mass properties category which 
includes two arrays, WEIGHT17 and VCG17. These contain 
respectively the overall weights and centers of gravity 
of weight groups 1 through 7. The weight groups conform 
to the U.S. Navy BSCI organization of ship weights. Al- 
though the BSCI system has been replaced by the SWBS 
(Ship Work Breakdown System) in recent years, i1t was 
used for the databases because only the FFG-7 class is 
sufficiently recent to have its weight and moment report 
organized with the new system. Further, the REED model 
1s based on BSCI. 

The gross mass properties are included in the gen- 


eral databases because they are more frequently used for 
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estimations than the individual weight items, and their 
inclusion may save the user from inspecting two different 
databases. 

There are about 150 items comprising the eight 
weight groups of the BSCI system. Therefore, the com- 
bination of weight and center of gravity for each item 
exceeds the limit of 200 entries in a DEX database. 
Although the use of arrays offers an apparent solution 
to this problem, the idea was discarded after careful 
consideration for several reasons. First, if one wished 
to store the weight in long tons, the vertical center of 
gravity in feet above baseline and the longitudinal 
center of gravity in feet aft of the forward perpen- 
dicular or from amidships ina three element array, not 
Seay evoulasatepe difficult to identify the 1nformation 
in the 64 characters of the database comment, but only 
one of the two unit names could be stored there. An- 
other possibility was to store all of the weights (or 
centers of gravity) for one weight group in an array. 
There would then be eight weight arrays, eight vcg 
arrays and eight lcg arrays, with the proper units in 
the database comment. The limit of 200 elements per 
array would not be a problem because the largest index 


in any weight group is 5l. This was considered 
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unsatisfactory because it was not felt that the one 
database comment for the array was sufficient to iden- 
tify the individual weight items and an extra index 
would have to be provided to the user. Further, an 
additional process would have to be developed for ex- 
tracting the particular weight item out of the array, 
and avoiding the need to Know where a value was stored 
in the database was one of the driving principles for 
developing DEX databases to begin with. 

Instead, it was decided to create a weight data- 
base and a vertical center of gravity database, with 
each item listed separately. Appendix E illustrates the 
listing of each type. No need was felt by this invest- 
igator for a longitudinal center of gravity database 
for existing ships. The estimating of the transverse 
Stability of a new ship design can be done effectively 
uSing data from existing ships because the vertical 
locations of most items is restricted to a reasonable 
degree by physical factors or proven arrangements. The 
REED model demonstrates that dependable parametric 
equations can be developed for estimating vertical 
centers of gravity. However, there is far more flexi- 
bility in both theory and practice for the longitudinal 


locations of many of the same items. Therefore, it is 
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more difficult to correlate into acceptably accurate 
parametric equations the information available on lcg's 
in existing ships. This does not preclude the need for 
a database containing the longitudinal weight distribu- 
ElonesOL a Ship design in Order to support longitudinal 
strength and seakeeping analyses. Nor does it preclude 
the use of a longitudinal center of gravity database for 
anew ship in order to support longitudinal stability 


(l.e. trim) analyses. 


ee nce peneene and Dependent Variables 

8.3.1 Concept. Databases can be both the source 
and destination of information. A particular program 
may read its input from a database, calculate values for 
other variables in the database, and write the new val- 
ues into those entries. This would be disastrous if 
uncontrolled. When administering a ship design project 
that involves multiple uses of the same databases, the 
ship design manager must have a system whereby he can 
control changes to the databases that occur as the 
design progresses around the design spiral. Further, 
the system should allow all design team members to be 
alerted to changes which may affect them. It is planned 
in future versions of DEX to implement a system that 


Supports the concept of independent and dependent 
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variables. 

Certain variables will be defined by the user as 
independent variables which, either by fact or intention, 
can not be changed despite changes in other variables. 
The remaining variables in the program or database are 
dependent on the former or each other for their values. 
Each entry in a database will be provided with an index 
of those variables whose value would be affected by a 
change in its value. When causing a change to such an 
entry (1.e. DBCHNG becomes .TRUE.), the user can query 
this index to determine which other items should be 
checked. 

This task is extremely difficult in shiv design 
because of the interaction of almost all of the variables. 
Ship design 1s not a linear process but a spiraling one. 
Figure 8-1 illustrates an attempt to group the variables 
of the general database into five levels of dependence. 
The first column represents those variables which can 
be considered independent. These might appear as 
specifications in a Top Level Requirement or they might 
be the result of trade-off studies during the design 
phase. 

The second group consists of those variables which 


are most directly affected by the independents or which 
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Figure 8-1. General Database Variable Relationships 
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are estimated first in the design process. fThe third 
column is dependent upon values in the first and/or 
second columns and the fourth column on values in the 
third and possibly first and/or second column. This 
table allows the database designer to determine what 
indices to put on each variable to alert him to check 
dependent ones. 

- For example, the dependent variables entry for 
ENDUR may include the following: WTLOAD, LBP, BEAMDWL, 
ieee nme neck On LBP will than add to the list of 
aubectea vVarElaebles DISPMLD, DISPTOT, LOA, CWP, CI, LCB, 
LCF, etc. Although this system requires more work by 
the database designer, it will make the job of the 


design manager easier. 


Sac Application of DEX: An Example 
8.4.1 Function of MACHWT. The Machinery Weight 


Estimating (MACHWT) Module was written to demonstrate 
how DEX and the cruiser-destroyer databases could be 
used in the preliminary design of a new ship. MACHWT 
hes a Gapnly lamited computation capability since it is 
only a demonstration module. It enables the user to 
estimate weight items 200, 201 and 203 based on certain 


existing parametric equations and parametric equations 
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developed by the user during the module execution. 

These three weight groups are respectively the 
weight of boilers, weight of propulsion units and weight 
of the propeller, shafting, and bearings. An analysis 
of 9 ships for which weight data is available reveals 
that the sum of these three items constitute between 
Boru and 65.5% Of the total Group 2 weight. 

The first two weight items are estimated by 
assuming that they are linearly related to installed 
horsepower. The program fits a straight line to data 
extracted from the databases chosen by the user and pre- 
dicts the new ship weights based on the new specified 
installed SHP. The program calculates the three com- 
ponent weights of item 203 from the input supplied by 
the user from any of the valid sources, using parametric 
equations from the REED model. A summary of the input 
required for each weight is provided in Table 8-2 (the 
actual database names are used). 

8.4.2 List of Subprograms and Menus. The Machinery 
Weight Estimating Module includes ten subprograms. They 


are listed below in the order in which they are most 
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likely encountered during the execution of the module: 


MAINPG 
MODIO 
JE P40 AB 
MWUNIT 
MWLIST 
MWCHRT 
MWCOMP 
DEAS S/T 
MWCOEF 
BLOCK DATA 
BENE iT 


There is actually no one correct sequence of listing the 


subprograms in the module, other than the requirement that 


MAINPG be first. 


W200: 


W201: 


W203: 


TABLE 8-2 
INPUT FOR MACHWT 


W200 and SHP from at least two steam ships and 
SHP of new ship 


W201 and SHP from at least two ships and SHP 
of new ship 


LBP, PPTYP, NSHAFT, PRPTYP, VSUS and DPROP 
(optional) of new ship 
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Seven of the subprograms employ menus in their 
Operation. These are illustrated in Figure 8-2. A 
listing of the module subprograms appears as Appendix F. 
They are described in the next section. 

8.4.3 Description of the Subprograms. A descrip- 
tion of a typical execution of the module will serve as 
a backdrop for the subprogram descriptions. The user 
leaves the DEX level and activates the module by using 
the "DEX-MAIN" menu item and module labeled 

~begin machwt 

Subprograms MAINPG and menu "MOD.MAIN" are en- 
countered first. MAINPG is identical to the subprogram 
of the same name used in the Cube Module described in 
Chapter 2, as is subprogram MODIO, which would be the 
next one encountered. The menu selections from these 
two subprograms are 

.read input 

These place the user in subroutine INPUT. This 
subroutine provides the user with a menu permitting him 
BOmbcaCdNeait, OF write the following: 

All the module input variables. 

The module input and/or output variables 
The machinery weight item to be estimated 
The data from existing ships to be used 


for curve fitting for weight items 
W(200) and W(201). 


WO NM Fk 
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Figure 8-2. Machinery Weight Estimating Menus 
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>. The characteristics of the new ship 
design needed as input for the weight 
Saket lois. 

The machinery weight item must be read first to 
establish the proper value of a variable WFLAG needed by 
the subsequent subprograms. This will permit the cor- 
rect prompting messages to be issued to the user for 
proper input sequencing. 

The user can access MWUNIT to specify the length, 
force and time units to be used for input and output, 
but he will normally just use the ones initialized in 
the module in BLOCK DATA. These values are respectively 
foot, long ton and second, and were chosen to conform 
with the units of the database variables used. MWUNIT 
is a shortened version of MXUNIT from the Cube Module. 

Returning from or bypassing MWUNIT, the user types 

.wt.item w200 
to access MWLIST and set WFLAG to indicate weight group 
200 to be estimated. MWLIST returns him to INPUT and 
he selects "curvepts". The following prompting message 
is issued. 


~crpecrry THE SEQUENTIAL NUMBER OF THIS PAIR OF DATA POINTS 
Dee sO l INTEGER NUMBERS 


He types "1" and is presented with menu "CHARACT." from 


subroutine MWCHRT. 
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Subroutine MWCHT allows the user to read, edit, or 
Write the characteristics of the ship in question listed 
in the menu in Figure 8-2. For data points, the in- 
dependent variable must be read first and the dependent 
variable next. In this case the user specifies SHP and 
then W200 and they are read from the open ship database 
and then inserted into the first positions of an in- 
dependent variable array and a dependent variable re- 
spectively. The user then issues 

.done done done 

to get back to MAINPG. Using the "inmode" menu selec- 
tion the user closes the open general database for one 
steam warship and opens the other one. He then types 

.read input curvepts 2 shp yes w200 
to-*input the second pair of data points into the two 
arrays. The "yes" responds to a question posed by 
MWCHRT to ascertain if the user is employing horsepower 
or kilowatts to measure SHP. 

This process is repeated for as many ship class 
databases from which the user wishes to read data for 
Swe Cert ing, Up tO a limit of 10. For the purpose of 
demonstration, the three weight items were stored in 
the general databases so that cnly one database for 


each ship would have to be cpened. Normally they re- 
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Side in the weight databases. 

When the user 1s satisfied with the data points 
read, he specifies "newship" from menu "INPUT" which 
causes the following message to be issued: 


teme eerie wi 200) ORTW(2Z01) INPUT NEW SHIP SHP. 
Soe cielo ne CHARACTERISTIC TOPREAD. 


The user then selects SHP from menu "CHARACT." to com- 
plete the input required. He returns to MAINPG and 
executes the computing program MWCOMP by the following 
command: 

-done done done compute 
Once it completes its calculation, MWCOMP returns control 
to MAINPG, which issues itsS menu prompting message. 

In order to first inspect the coefficients of the 
straight line fitted to the data, the user (after en- 
suring that the destination is the terminal) types 

PwiikeerGleout COCLEL1C1 
These commands invoke MODIO, OUTPUT and MWCOEF succes- 
ively. The last one causes the two element coefficient 
array to be printed. The two values which appear are 
the slope and y-intercept of the straight line. 

The user then selects "newship" from menu "OUTPUT" 
and then "w200" from "CHARACT." and the new estimated 
boiler weight is printed on the terminal. The user 


can them return to MAINPG, choose the new ship database 
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as the destination, and write the estimated W(200) into 
it. Now, in order to estimate W(201), the user must 
first exit the module via the "guit" selection from 
"MOD.MAIN" in order to clear the independent and depen- 
dent variable arrays. This is unnecessary if he is go- 
ing to use at least the same number of data points as 
for W(200). It is also unnecessary for W(203) which 
does not require curve fitting. 

For W(203), subroutine INPUT prompts the user with 
the following message when “newship" is chosen: 


*TO ESTIMATE W(203) THE FOLLOWING INFORMATION IS REQUIRED: 
Reeeweee Per, SH NSHAPT PRPTYP VSUS DPROP (optional) 


If DPRCP is not specified MWCOMP estimates it. 

Simple as it is, MACHWT is more sophisticated than 
SieweumbemMedule. it is hoped that the listing in 
Appendix F can serve as a guide to readers preparing a 
module for use on the DEX. 

8.4.4 Results from the MACHWT Module. The module 
was exercised to estimate W(200) and W(201) for a nominal 
new ship design having a 40,000 SHP 1200 psi steam plant 
installed. In order to estimate the weight of boilers, 
data from the DDG-2, DDG-40, and FF-1052 classes was 
used. For estimating the weight of the propulsion units, 


data from the DDG-2, DDG-40, CG-16, CG-26, FF-1052, and 


2 


iy 





FFG-l class databases was used. 
The REED Model algorithms for the respective 
weights are as follows: 


W200=.00234*SHP+48.09 
MeOle nO OLS 3*SHP+l]. 92 


The MACHWT Module fits the following equations to 
the data used: 


W200=.002585*SHP+31.94 
viZOl=.0017665*SHP+6 .66 


The respective estimated weights for the new ship 


appear in Table 8-3. 


TABLES o— 3 


Vo tGH ie ESotiMATES FOR 40,000 SHP SHIP DESIGH 


Reed Model MACHWT 
W200 (tons) ile: lay, 1gss 2 
W201 (tons) Tespaell qs rae 


8.4.5 Future Developments. MACHWT represents a 
starting point for what is hoped will be a major ship 
synthesis program incorporating DEX databases and the 
REED Model. The model as written contains hundreds of 
parametric equations for estimating weights, volumes, 


apeaocmandecenters Of gravity which were derived from 


154 





the data available to its author at that time. As new 
snips are designed by the Navy, say every 4-5 years, a 
problem arises with respect to incorporating them into 
the model. It would be a major undertaking to perform 
the regression analysis for all new equations. Such a 
task would have questionable merits since it would pro- 
bably be found that many equations change only slightly, 
and others that change drastically have insignificant 
effects on the overall design. Further, the user would 
still be confined to using equations of a form chosen 
by some Other designer and derived form those ship 
classes chosen by him, to which the current user may 

Sb )ECct. 

MACHWT demonstrates a program that allows the user 
to specify the ship data upon which hé wishes to perform 
a regression analysis. There is no reason why the co- 
efficients obtained could not be written into a database 
which would be accessed by the REED model in order to 
estimate that weight item. Expanding on this idea, a 
program could be developed which allows the user to 
derive his own coefficients for parametric equations for 
the large, but not all inclusive, set of variables 
(weights, volumes, etc.) which impact significantly on 


the ship design. When a new naval ship class design is 
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finalized, databases could be produced and stored in the 
design library at MIT. Only after, perhaps, 3-4 designs 
and 10-15 years would a major revision of the REED model 
become worthwhile. The cycle could then begin anew. 

Not only would this approach avoid frequent rewriting 

of the REED model, but more importantly, it would allow 
the individual designer much more control over the tool 
at his disposal. This would greatly support the function 


of the department to train naval architects. 
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CHAPTER 9 


CONCLUSIONS AND RECOMMENDATIONS 


With the completion of the work of this investiga- 
Blom Ene rinsteesuLly Capable version Of DEX at MIT has 
been implemented. Current plans call for the adaption 
to DEX of many of the computer programs in the depart- 
ment and the indoctrination of students to the system. 
These programs cover a wide range of the calculations 
which occur during the preliminary design phase. 

Two areas of the extended DEX library require 
development. First is the creation of routines for 
editing real arrays. Several editing capabilities, 
Similar to those of the operating system, are being 
considered for implementation, possibly operated by the 
user by means of an editing menu. 

The second area is the task of introducing graphics 
to the DEX at MIT. An idea to develop routines capable 
of reading or writing a pair of one-dimensional arrays 
is under consideration as the means for handling plots. 
One problem that also must be solved is how to allow the 
plotting of two curves on the same graph on the screen 
without any intermediate dialogue between program and 


user. Although some terminals permit both plotting and 
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dialogue to occur simultaneously on the screen, many do 
not, and for DEX to be portable it must be suitable for 
both types of terminals. 

For the purpose of performing ship designs at MIT, 
this writer perceives the most immediate and imperative 
need to be the development and implementation of pro- 
grams which will allow the creation of a table of offsets 
database. Once the hull form can be defined, the existing 
programs for hydrostatics, cross-curves of stability, 
floodable length and Bonjeans, adapted to DEX, can be 
operated using a common offsets database. Actually, with 
a hull definition database, the door 1s open for a sig- 
nificant expansion of the use of the computer in the 
preliminary design phase including seakeeping, general 
‘arrangements, longitudinal strength, etc. Therefore, 
this task is strongly recommended as a fruitful area 
rom srurther research. 

The adoption of the DEX System entails a change in 
philosophy on the part of the individual author and user. 
Heretofore, the programmer required the user to learn 
how to provide the input, to restrict himself to the 
design path chosen by the author, and to use the units 
preferred by the author. With DEX, the user should ex- 


pect some standardization in the means of input, 
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fiexibility in the path to pursue, and choice in the 
unit system with which to work. It means more work for 
the module author, but his job is only performed once, 
while the advantages he can offer by using DEX will be 


available to countless users. 
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APPENDIX A 
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AEP xX B 


UNIT SUBROUTINE ABBREVIATIONS AND CALLING SEQUENCES 
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Table B-l. Angle Unit Abbreviations 


NAMAO 3 NAMAO06 NAMAO8 NAMA12 
Cie Gye. Fb Cre is Gy Cie 
RAD RADIAN RADIAN RADIAN 
DEG DEGREE DEG (ANG) DEGREE (ANG) 
MIN MINUTE MIN (ANG) MINUTE (ANG) 
SEC SECOND SEC (ANG) SECOND (ANG) 
Table B-2. Force Unit Abbreviations 
NAMFO2 NAMF'0 3 NAMF 12 
PL PDL POUNDAL 
LB fees POUND (FORCE) 
Sit Sk SHORT TON 
Pak Lek LONG TON 
DY DYN DYE 
N N NEWTON 
KP KGF KILOPOND 
Table B-3. Length Unit Abbreviations 
NAMLO 2 NAMLO6 NAML12 
IN TE NCH INCH 
FT FOOT FOOT 
SM STATMI PATE MILE 
NM NAUTMI NAUT. MILE 
MM MILLIM MILLIMETER 
CM CENTIM CENTEMETER 
MT METER METER 
KM KILOMT KILOMETER 


202 





Table B-4. 


NAMTP1 

c 

F 

K 

R 

Table B-5. 

NAMTO2 NAMTO 3 
SC SEC 
MN MIN 
HR HR 
by DAY 
WK WK 
MO MO 
ik YOR 


NAMTP5 


bce 
DEG-F 
DEG -K 
DEG=R 


Time Unit 
NAMT0O6 


SECOND 
MINUTE 
HOUR 
DAY 
WEEK 
MONTH 
YEAR 
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Temperature Unit Abbreviations 


NMTP12 


PEG aoe 
DEGREES —— 
DEGREE Doak 
DEGREES=-R 


Abbreviations 
NAMT 12 


SECOND 
MINUTE 
HOUR 
DAY 
WEEK 
MONTH 
YEAR 





LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


LOGICAL 


Table B-6. 


BUNGE EOh 


FUNCTION 


FUNCTION 


PUNCT ION 


FUNCTION 


FUNCTION 


Poe Lien 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


FUNCTION 


Calling Sequences of Derived Units 


UAACC (UFAACC ,UNAACC,ALLFLG, 
CONVA , CONVT , NAMA0 3 ,NAMTO3,NCPW) 


UACCEL (UFACC , UNACC ,ALLFLG, 
CONVL,CONVT, NAMLO6 ,NAMTO2,NCPW) 


UAREA (UFAREA,UNAREA,ALLFLG, 
CONVL, NAMLO6 , NCPW) 


UFREQ (UFFREQ,UNFREQ,ALLFLG, 
CONVA,CONVT,NAMAO8 ,NAMTO3, 
UIOAUN , UIOTUN ,NCPW) 


UKVISC (UFKVIS,UNKVIS ,ALLFLG, 
CONVL,CONVT, NAMLO2,NAMTO3, 
UIOLUN , UIOTUN, NCPW) 


UMASS (UFMASS ,UNMASS,ALLFLG, 
CONVF ,CONVL ,CONVT , NAMFO2 ,NAMLO2, 
NAMTO2,UIOFUN, UIOLUN , UIOTUN , NCPW) 


UMPOWR (UFPOWE , UNPOWE ,ALLFLG, 
CONVF , CONVL ,CONVT , NAMF'02,NAMLO2, 
NAMTO2 ,UIOFUN,UIOLUN , UIOTUN , NCPW) 


VER PoSs(URERES UNEP RES, ALLELG, 
CONVF , CONVL ,NAMF03 ,NAMLO2,NCPW) 


DeoveeCVWWeEPor sh Ole ort pvr hG, 
CONVL ,CONVT ,NAMLO2 ,NAMT03,NCPW) 


URHO (UFRHO, UNRHO,ALLFLG, 
CONVF ,CONVL ,CONVT , NAMF03,NAMLO2, 
NAMT02,UIOFUN ,UIOLUN, UIOTUN ,NCPW) 


UsPEED(UFSPEE,UNSPEE,ALLFLG, 
CONVL ,CONVT,NAMLO6 ,NAMTO2, 
UIOLUN , UIOTUN , NCPW) 


UVOL(UFVOL,UNVOL,ALLFLG, 
CONVL , NAMLO6 , NCPW) 
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Pee NL (GS 


SAMPLE GENERAL DATABASE 


Note: This is an edited version of the listing of 
the database obtained at the terminal. The actual listing 
of the items is in a random order due to the hashing func- 
tion employed during the storing of the entries. Group 
headings also would not appear at the terminal. 
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ITEM DEFINITION 


HiGcreConmtcol Radars sand Dilseceors 


300 SPG-51C 

301 SPG-55 

B02 SPG-60 

B03 MK-51 Gun Fire Control Director 
304 Mk=6> Gun Fire Control Director 


Missile Launchers and Fire Control Systems 


305 Tartar MK-ll GMLS 
306 Tartar MK-22 GMLS 
S07 MK-11 MFCS 
308 MK-76 MFCS 


OMT 





TABLE D-3 


INDEX TO NON-PAYLOAD REED CODE 


ITEM CODE MEANING 
Propulsion Plant Type ik 600 psi steam 
(PPTYP) Z 1200 psi steam 
5 1200 psi pressure-fired steam 
4 nuclear 
5 gas turbine first generation 
6 gas turbine second generation 
2 diesel 
8 COGAS 
Ship Service Electric l steam 
Plant Type Z gas turbine first generation 
(SSEPTYP) 3 gas turbine second generation 
4 low speed diesel 
> medium speed diesel 
6 high speed diesel 
Emergency Electric i gas turbine first generation 
Plant Type 2 gas turbine second generation 
(EMETYP) 3 low speed diesel 
4 medium speed diesel 
s) high speed diesel 
Type of Material i steel 
(TYPMATL) 2 aluminum 


SOURCE: Michael Reed, “Ship Synthesis Model for Naval Surface 
Ships" (0.E. and S.M. Thesis, Massachusetts Institute of Technology, 
O75). 
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APPEND DX 


SAMPLE WEIGHT AND VERTICAL CENTER OF 


GRAVITY DATABASES 


Note: These are edited versions of the listings 
of the databases obtained at the terminal. The actual 
listings of the items in each database is in a random 
order due to the hashing function employed during the 
storing of the entries. 
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APPENDIX FE 


MACHWT MODULE LISTING 


Note: Subroutines MAINPG and MODIO are included in the 
Cube Module listing in Appendix A and do not appear here. 
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